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HISTORY 
1.0 — DECO CZL 
AC-E-0 


1.1.0 Closed Problem Report AA3318 


1.1.1 It was reported that a ; 
DL11-A operated at 110 baud caused fai- 

lure in the AREAD routine be 
cause the 200 msec. delay is not ; 

of sufficient duration to allow settin 
g of the Receiver om : ; 

_ter Status ‘ ** bit through the Maintena 

nce bit facility. 

The time delay was increased from 200 to 600 msec. 


1.2.0 Closed Problem Report AA3643 
1.2.1 Tests 56,57,60,61.62,63,64,65.an 
d 66 do not run prose when 
run on an LSI-11. This problem was r 


branch 
test for t 


esolved by changing the 
a 
he 


ter the CHAIN command to go back to 


_ LSI-11 switch in order to effect the appropriate action 
during 
each test. 


1.2.2 Second time-out in Test 64 allows excessive 
wait for operator 
response. The time delay was reduced from °"77777"' 


to 


1.2.3 Common routine TYPE does not save the contents of RO resul 
ting 
in the loss of this information and consequent failure. 


Instructions were included to save the contents of RO on entry 
in 
o the routine and to restore them upon exit. 
1.2.4 Loss of stack contents fo. 
r non-LSI-11 computers due to incor- — 
rect sequence of instructions i 


n Test 65 was also reported in 
Problem Report AA3803. Refer to 1.3.1. 


1.3.0 Closed Problem Report AA3803 


1.3.1 Testing of non-LSI-11 computer 
s results in the program hanging 
‘ up because the stack gets popped awa 
y in Test 65. The branch ' ; 
after the test for the LSI-11 switch in Test 6 
5 should go to , 
the CHAIN command for proper exit from the test for n 


on-LSI-11 | 
machines. This change supersedes the change released in DEP 


MD-11-DZLAC-D-1. 
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1.0 ABSTRACT 


This diagnostic is divided into three basic sections: 


1. A check of the console terminal interface logic. 


2. Acheck of | ; 
the printing characteristics and control logic. 


3. An echo portion desi ; 
gned to check the keyboard and to aid in 
the diagnosis of terminal pr 
oblems. 
Patterns used by the printing tests were chosen for ease of visual ve 
rification. The echo tests were designed for maximum flexibility, 


with 
Test 24 allowing any desired pattern to be used. 


2.0 REQUIREMENTS 


2.1 
EQUIPMENT AND ASSIGNMENTS 


any +e aT stic is artyeas to run on all models of t 

e compute 

with a a KUT or DL11 console terminal interface. The 
diagnostic s 
is preset to test up to 16 additional terminals (on DL11's) assig 


between addresses 776500 and 776676. This preset quantity (16) and 
pre 
ps sore (776500) can be changed by depositing the quantity in 
he starting yg ~ in DLADR. For example, to allow for up 
to 31 additional t : 
rminals, the he 775610 could be placed into 
DLADR and the octal equiva 
lent of 31, i.e., (37) would be Lgcod into 
DLNR. The number of additional DL1 
1°s actually tested will be adjust- 
ed automatically downward based upon the 
first DL11 address (within 
the implied r ) found to be unresponsive. Thus 
if there is no DL11 
present to match the address in DLADR only the console te 
rminal will ’ 
be tented, Therefore, all DL11‘'s in excess of the console termi 


na 
must have contiguous address assignments with the lowest address cor- 
res 





ponding to the value in DLADR. 


The console terminal (assigned standard) can b 

e reassigned by placing | f ; 

the address of its receiver status register into CO 

NADD and its re- ; : 

ceiver interrupt vector into CONVEC. This reassignment can be 

made to 

a terminal within the set of terminals implied by DLNR and DLADR with- 


—_ ae effect. Note that a terminal with a slower speed (if any) 
wi 

determine the speed at which all of the terminals are tested. 

Such a termina 

l should generally be excluded from the test. or tested 

separately. (Refer 

to the symbol definitions in the Listing for the 

above mentioned locations.) 


2.2 STORAGE 
The hawaatre program uses all of 4K of memory with exception 


of the 
area used by the absolute loader. 


mre IA 3K 3 n~ 
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2.3 PRELIMINARY PROGRAMS 


Any 
plicable PDP-11 diagnostics should be run on the processor. If 
any errors a 
re encountered during the interface check, refer to the 
ee inter face 
stic for further help in locating the 
Lem if needed. 


This diagnostic is for verification of basic terminal fu 
nctions only. 
If the terminals under test have hardware options installed run 


di 
naet te MAINDEC-11=-DZLAF-A , the LA36 TERMINAL OPTIONS TEST. 


3.0 
LOADING PROCEDURE AND INITIALIZATION 


Load the LA36 diagnostic program tape 
following normal pesenares 
Before starting the program, refer to the desc 
ription of the routine 

*DLY’’. Time delays used by the program are a_ function 

of the CPU ; 

lL and memory type and should be set-up before running the di 

tic. The routine is preset for a PDP-11/05 with core memory. Refer 
, — 2.1 for non-standard terminal addresses and for testing 
multiple 

DL11 a 


hy hardware switch register does not exist, the program w 
1 use t 
contents of location 176 as the value of the switches. Therefore, 


sure to load location 176 with the switch value before starting the 
pro 
gram when not using hardware switches. 


If the CPU is an LSI-11, 11/03 be sure 

to set switch register bit 9 to 
° 1. Special tests are run on the DLV11 inter 
ace. 


Ooo 8 Lf etree nerO er Tuan 





4.0 STARTING PROCEDURE 


4.1 STARTING ADDRESSES 


200(8) = Run with Switch Register Control 
; - perform Console T 
erminal 1/0 tests. < 
204(8) = Run with Switch Register Control 


- skip Console Terminal 1/0 tests. 
210(8) = Run with Keyboar 


d Control 
214 - perform Console Terminal I/0 tests. 
(8) = Run with Keyboard Control 


- skip Console Terminal 1/0 t 
ests. 





4.2 Switch Register Control With 1/0 Tests 


A. Set the switch r 
egister to —— and press the load address 
switch. 


B. Set 

switch register bit 9 toa 1 if the processor is an 
LSI-11, 11/0 

3. Refer to Section 5.1.5. 


C. Set the switch register bits 7-0 equal t 
o the paper width in 
terms of the number of columns (octal). Ref 
er to Section 


Set the switch register bit 8 equal t 
o 1o0r 0 and press the 
switch. A message will be printe 
d indicating the 
. number of DL11"s being tested. Refer to Section 5.1. 
E. If bit 8 were zero when starting, the Printer tests are exe- 
cuted sequentially, after the entire series of 1/0 tests are 
xecuted. 
F. If bit 8 was set when the start switch was pressed, the e 
tire series of I1/0 tests will be executed and the CPU will 


halt at location SELHLT. The program will then be waiting 


or 
control via the switch register. 


4.3 Switch Register Control - Without 
1/0 Tests 


Same as Section 4.2 except in step A, set the switch register 
to 
204 (8). 


SEQ 0010 
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4.4 Keyboard Control - With 1/0 Tests 


A. Set the switch 
register oS noel and press the load address 
switch. 


B. Se 
t the switch register bits 7-0 equal to the paper width in 
terms of : 

the number of columns (octal). Refer to Section 


c. 
Set switch | aa bit 9 toa 1 if the processor is an 


L » 
11/03. Refer to Section 5.1.5. 


D. Set switch 8 and press the start sw 
itch. A message wil 
printed indicating the number of DL11's be 
ing tested. Refer 
to Section 5.1.6. 


E. If bit 8 was zero whe 
n starting, the printer tests are exe- 
cuted sequentially after th 
e entire series of 1/0 tests are 
executed. 


F. If bit 8 were s 
et when the start switch was pressed, the en- 
tire series of 1/0 test 
s will be executed followed by the se- 
lect test ~ ie ad program 
will then be waiti or 
test colactien ote any terminal keybo 
ard. Refer to Section 


4.5 Keyboard Control - Without 1/0 
Tests 


Same as Section 4.4 except in step A, set the switch register 
214 (8). 


5.0 OPERATING PROCEDURE 


The program can be controlled in e 
ither of two methods: by the con- 


to 


SEQ 0011 


Her ADnenranae-wF a MOMDDHOaH BW 





sole switch register or from the keybo 
ard of the terminal(s) under SEQ 0012 
test. 





SEQ 0013 
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5.1 SWITCH REGISTER CONTROL 


The variou : . : 

s ene and their functions are Listed below. Switches 
may c ; 

and set as desired except as noted in the specific 

switch descriptions. Refe —s 

r to the detailed switch descriptions for 

further, more complete information 


e7oa 


SWITCH NUMBER DESCRIPTION 
1(up) = HAL 
O(down) = CONTINUE TEST SEQUENCE 


15 
T AT END OF TEST 


3a9D roo C €& 


1(up) — = CONTINUE ON ERROR 
O(down) = HALT ON 
1(up) = DRIVE ONLY CONSOLE TERMINAL 
O(down) = DRIVE ALL TERMINALS 
1(up) = LOOP ON 
O(down) = NORMAL TEST SEQUENCE 


11 
INDIVIDUAL TEST 


1(up) = CPU TYPE IS AN LSI-11, 11/03 
down) = 
ALL OTHER PDP-11'S 
8 1(up) = RUN TEST ONCE AND HALT 
O(down) = LOOP ON TEST SEQUENCE 


5-0 
TEST NUMBER SELECTION 


7-0 NUMBER OF COLUMNS AT ST 
ART-UP 


5.1.1 Switch 15 


With switch 15 in the up position, the program 

will halt at the end of — : 

the current test. Replacing switch 15 to the down pos 
ition and press- 





B 2 
ing CONTINUE will continue the normal test operation. Dur 


j e 
hatt, any of the control switches may be changed or set as desired. 


5.1.2 Switch 14 e 


Placing switch 14 in the up position will cause the pro 

gram to contin- : . 

¢ on errors during any of the I/0 tests only. With switch 1 

the program will halt (at ERRHLT) on any errors during the I-0 tests 


with the location of the error in RO. Pressing CONTINUE will cause 
the pro 


gram to continue if switch 14 is down. With switch 14 up, 
pressing contin 
ue will cause the program to Loop on the error. 


SEQ 0014 
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NOTE 


Error halts can occur only during the 
1/0 tests. 
The terminal is connected to ‘ 
: a serial Line and there is no error 
in- 
formation returned to the program from 


t 

he terminal. Therefore the program 
cannot report errors 

occurring in the : 
terminal. Errors detected during the 


interface tests will result in halts as 
described abo 
ve. 


5.1.3 Switch 13 


Placing switch 13 in the down position will cause 

the driving of all ; 
~ a yA terminals during the Printer tests only. If swi 
tch 1 up, 
only the console terminal is driven. 


** Note: Switch 13 shoul 


d only be changed when the program is waiting 
for a test selection. 


Set. 
4 Switch 1i 


ag den, switch 11 up at any time will cause the program to loop 
on the 


current test as long as switch 11 remains up. naples we switch 11 
e 


down will cause the program to resume normal operation at t 
tion of 
the test. 


5.1.5 Switch 9 


Placing switch 9 up at the start of the test 
will cause an automatic 
change in the DELAY timing, and the execution of 
special DLV11 I/0 
tests. The DLV11 has no maintenance mode and will cause th 


SEQ 0015 


NE se Tn 


e program 
to Rarg if tested as a DL11. 


5.1.6 Switch 8 


with switch 8 : ‘ 
in the down position the program will continue to 
through the present t 2 
est sequence. Placing switch 8 up will cause the 
gor to halt (at SELHLT) a 
t the completion of the current test. 
After the halt, set the control switc 
hes as desired and set switches 5 
to 0 to the next desired test number, and the 
n press CONTINUE to start 
the test. 


loop 


SEQ 0016 





ern 


SEQ 0017 
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When starting the diagnostic the operator 
can select a specific test — nee 
rather than automatically starting the printing 
test sequence by set- ; ; ' 
ting switch 8 up before starting the diagnostic. Upon c 
ompletion of ; : 
the I/0 test sequence (if being run) the program will either ha 


lt at 
SELHLT waiting for a test selection via the switch register or print 


t 
oe select test message and wait for a test selection from any key- 


efer to Section 4 for further information. 


5.1.7 Switches 5 to 0 


Swit 

ches 5 to 0 are used to select specific tests when under switch 
register con : 

trol. Test numbers are always in octal. 


5.1.8 Switches 7 to 0 (at start 
“up only) 


At start-up only, switches 7 to 0 are used to set the desired maxi 
mum 
number of columns the diagnostic is to test. If the number set is 


gre 
a poet or less than 30(10), the program will default to 
he value set must be in octal form. Thus, for normal oper- 

ation leave switche 

s 7 to 0 down to test the full 132(10) columns. 
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5.2 KEYBOARD CONTROL 


The p 

rogram will be under keyboard control whenever the diagnostic is 
started at lo : : . 

cation 210 or 214. Switches on the console switch regis- 

ter will have no effe ; 

ct when under terminal control except for switch 

15. The I/0 tests cannot be 

selected when under keyboard control. 


To stop a test at any time, type the ‘R 

UBOUT’" or 'DELETE’’ key on any 

keyboard. Any terminal may stop the test and 

select the next test if . . 
switch be down. When a test is stopped by typing 


a or 
ats the test will terminate and the following message 
wi 


typed: 
SELECT TEST NUMBER 


At this time, type the desire 
d test number followed by any one of the 
following control characters: 


. (period) = Run the selected test once and return for another 
test selection. 


L = Loop on the selected test unt 
il a ‘*RUBOUT’’ is 
typed. 


Ss = Start the 
test sequence with the selected test. 
_._, Continue to loo 
p on the printing test sequence . 
until a ‘RUBOUT’’ is typed 


The ‘L’’ or ‘'S’’ may be either upper or lower case, but the test number 


m 

ust always be a 2 digit octal number. The test number and terminator 
are ec 

d by the program, thus each character will be printed twice 

if the termina 


SEQ 0018 


] 
4 
« 
1 
( 
t 
« 
] 
1 
¢ 
1 





all option tests, the ‘SS’ will o 
— run the test once (the same as if 
ing a period), however, typing an ‘1L"’ 
l cause the program to 
(oop on the selected test. If an error is detect 
ed in the test selec- 
tion Be aa test number or control character), a quest 
ion mark 
printed are the message will be repeated. 


SEQ 0019 





SEQ 0020 
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* TEST DESCRIPTION 


6.1 PRINTING TESTS 


azvoonraoa7 Oo 


At the beginning of each 


te i. will be printed indicating which test is being executed a 
= 
the test is a function of the number of columns, the number of columns 
being tested will be indicated. A detailed description and sample 
patterns a‘ 

for each printing test follows: 


6.1.1 Test 0 - Data Path Test 


This t 

est is used to test the data Lines to and through the interface 
and to the P : N 

terminal. An alternating bit pattern is sent which will 

print alternating *'s ‘ 

and U's in a checkerboard pattern to the maximum 

column width. The startin 


c 
haracter for each line is altareeued and 
a total of four lines are printed. 


_ the Auto Line Feed Option set to produce an automatic Line 
after e 
very received carriage return, there will be a blank Line 
between each pri 
nted Line. 
EXAMPLE : 

sol What Ohad Uai What Ohad al Wiel Ohad OLal Ohad Ohad Ohal Ohad Ohad 8) 


UU U8U 8080898 eUeU* 
Ue Ue Ue eee eee eee ee 


UU 808088908809 


6.1.2 Test 1 - Printable Character Te 
st 


This test produces a check of all 94(10) printable characters. 





i 
ch 


aracters are printed in groups of three with three groups per Line, SEQ 0021 
separated : . 

by three spaces between groups. The first column will con- 

tain all ASCII ; : 

codes from 040 to 077. Column two will contain all 

ASCII codes from 100 to 13 

7 - primarily the capital letter set. The 

last column will contain all ASC 

II codes from 140 to 176 - primarily 

the small letter set. 


With the Auto Lin ; : 
e Feed Option set to produce an automatic Line feed 


after every received c _ : 
arriage return, there will be a blank Line 
between each printed Line. 





J 2 


SEQ 0022 
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6.1.3 Test 2 - Non-printable Character T 
est 


aad test checks all non-printable characters that have no _ control 


unction in the LA36 terminal or the LA36 options (such as CR, LF, BS, 





& BEL). 
First the ASCII code will be printed followed by the mnemonic 
after a few se ‘ 
parating spaces. Following the mnemonic, the actual 

control character will be — 

sent three times and nothing should happen 

at the printer. This pattern. 

is repeated, three times on a Line, 

until all of the non-printing characters 

have been tested. 


SEQ 0023 


goo _€ 


wt the Auto Line Feed Option set to produce an automatic 

ine 

after every received carriage return, there will be a blank | 
ine 

between each printed Line. 


wes + + tt Pee 
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STX 
dCi 022 DdC2 
dC 


ETB 030 CAN 


RS 037 US 


6.1.4 Test 3 - Carriage Return Test 


This test checks the carriage return fr 

om all even numbered columns 

and the spacing of the solenoid head from the | 

eft margin. It is also . Oe 

a good check for proper operation of the position decod 
er. 


The test prints a full Line of alternating 0's and spaces, starting 


wW 

ith a 0. At the end of the line the print head is returned to the 
left marg : . 

in with a carriage return. The spaces are then filled in by 
spacing the pri 2 ; 

nt head out from the left margin to the first space, 
printing an *X'’, and exec : 

uting a carriage return. This pattern is re- 

peated until the Line is complet _ 

ed. Check to see that all X's are in 

the middle of the space between the two z 

eroes on either side of it. 


EXAMPLE : 
OxOXOXOXOXOXOXOXOXOX0X0x0 
xOXOX 
_ the Auto Line Feed Option set to produce an automatic line fe 


reer every received carriage return, this test will print a Line of 


s 
and spaces, then print a diagonal Line of X's. To correctly check 
the encoder, ‘ 

the Auto Line Feed Option should be disabled. 


SEQ 0024 





SEQ 0025 
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6.1.5 Test 4 = Multiple Line Feed Test 


This test check . 
s the Line feed | i of the printer by sending 
j 


various groups o i . 
ne feeds interspaced with reference lines. The 
number printed as the reference 7 
line indicates the number of Line 
feeds that follow. The first and last 
Lines also contain a tg re) 
dashes as reference points for measuring the t 
otal distance between 
the two dashed Lines, i.e., 63(10) Lines. 


with the A . 
uto Line Feed Option set to produce an automatic line feed 
after every carria 
ge return, the number printed will indicate one less 
than the number of line fe 
eds (the number of blank Lines) that follow. 
The total distance between the two 
dashed Lines will then be 69 Lines. 


EXAMPLE : 


\ 
15 Blank Line 


/ 
32 
31 Blank Lines 


00-------------------------------------------------- 


SEQ 0026 
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6.1.6 Test 5 - Single Line Feed Test 


This test is designed to check the tim 

ing of single Line feeds and the | 

capability of doing Line feeds in all colum 

ns. Two reference Lines ; 

are used by this test (and Test 6) which also can be 
used to easily . . a 
check the number of columns the printer is printing. 


The fi 
rst reference_line contains 130(10) zeroes followed by two 2's 
if testing ? 5 
2(10) columns. If less than 132 columns, the Line will 
contain O's for two | 
ess than the maximum number of columns followed 
by the two 2's. This referen 
ce line is a quick check for_132(10) co- 
lumns if testing the full 132(10) col 
The second reference Line 


This Line, again, can be used as a quick check 
of the number of 
columns. 


The Line feed test is accomplished by: printing t 
he first reference 
oe srt O's and two 2's; then either sending 60 
"o.. 7 
testing 132(10) columns, or waiting 1.8 seconds for an LCV, if tes 


ting 
- than 132(10) columns. If testing 132(10) columns, nothing 
s 


ould he hy except for an LCV, at the end of the line. The 3's 
should oA 
lost and never printed. After the LCV, with the print head 
at the extreme rig o . 
nt, a carriage return - Line feed will be sent fol- 
lowed by repeated backs ‘ 
lashes ‘"\'* and Linefeeds to print a diagonal 
Line down the paper. When a backs 
lash is printed in the maximum co- 
lum, a carri return will be sent imm 
ediately after the line feed , 
and the second reference Line of sequential number 
s will be printed. | 2 ; 
After completing the Line, a carriage return - Line feed 
will be sent ; ; 
and the program will wait one second for the carriage return func 
tion 
te complete. After the delay, the reference line will be repeated, 


t 
e last Line being guaranteed to be correct. Any timing problems 


SEQ 0027 





during th 
e line feeds will show as misprints or missing characters SEQ 0028 
during the first 
characters of the middle reference Line. 
“y paper feed pro 
S cause misalignment of the slashes 
forming the diagonal Line. 
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SEQ 0029 


A 
A 
€ 
k 
€ 
n 
€ 
t 


123456789012345678901234567890 
12345678901 2345678901 234567890 


With the Auto Line Feed Option set to produce an automatic line feed 
after every received carriage return, there will be a blank Line every 





place a : 
carriage return is executed. 





~“VYVRee + Oo 


De 
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EXAMPLE : 
0000000022 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
1234567890 
1234567890 


6.1.7 Test 6 - BRackspac 
e Test 


This test is designed to test the print timing as in Test 5 as well as 


the backward and forward movement of the print solenoid head. 


The test cons 

ists of the same first reference line as in Test 5 then a 
carriage return-line 

feed. A full Line is then printed using the fol- 

lowing pattern: 


Forward Slash ‘‘/"’ 
Backspace 
Back Slash — 


This 

pattern produces a line of all X‘s. ‘The two slashes should cross 
exactly at Pos 
the middle, producing the X character. When the Line is 
completed a carriage 

return-line feed is sent and the last two refer- 

ence ‘Same © we printed as in 

Test 5 y fining problems will show in 

the first % ho) aracters of the mi 

eee porerense line; again as in 

est 5. 


SEQ 0031 


With the Auto Line Feed Option set 
to produce an automatic line feed 
after every received carriage return, 
there will be a blank Line 
between each printed Line. 


EXAMPLE : 


22 
KKK III III KIO IK 


12345678901 2345678901 234567890 
12345678901 2345678901 234567890 


SEQ 0032 





am 


SEQ 0033 


6.1.8 Test 7 = Overprint Test 


This test is designed to check the spacing 

and repeatable printing — 

characteristics of the printer. Three rows of ch 
aracters are each F 
overprinted two times. The rows consist of the following c 
haracters 

alternated across the Line: 


Row 1 M-SP 


Row 2 SP-a 
Row 3 &-SP 


The resulting patter 
mn will be a checkerboard pattern and the over- 
elie 9 characters should aA 

aligned properly with the initial char- 


aaaaa 

SSeeeeeeeceeeeee 
With the Auto Line Feed Option set to produce 

an automatic line feed : 
after every received carriage return, the Lines will 
not be overprint- 
- rare will be three Lines of each character with a bl 

an ine 
- oe each group of characters. The characters in each group shoul 


be in the same columns. 


EXAMPLE : 
MMMMMMMM MM 
MMMMMMM MMM 
MMMMMMMM MM 





od 
od 
od 
od 
od 
od 
oo 
(] 
(—) 
od 





6.1.9 Test 10 - Printing Frequency Sweep Test 


This test prints the char 

acter ‘H’’ repeatedly, 30(10) characters per 
Line for four Lines. During t 

he first two Lines, the time interval 

between characters is increased from 30(1 

0) milliseconds to 1.8 sec- 

onds using the following formula to create a loga 
rithmic increase: 


28 New Delay = Old Delay + Old Delay/16 + Old Delay/1 


The last two Lines do just the reverse. The time interval between 


c 
haracters is decreased from 1.8 seconds to 30(10) milliseconds 


using the | et 
following formula to again create a logarithmic decrease: 


New Delay 

= Old Delay - Old Delay/16 - Old Delay/128 

Look for possible misalignment o 

f the characters or spaces between 

characters as an indication of timing pr 
obLlems. 
—_ the Auto Line Feed Option set to produce an automatic line fee 
after every received carriage return, there will be a blank Line 


twe 
en each printed Line. 


6.1.10 Test 11 - Ribbon Feed T 
est 


This test checks the ribbon feed mechanism by printing a single column 


re) 

fa; _itnes of X's down the left hand margin of the page. Visually 
check for 

proper operation of the ribbon feed mechanism during this 

test. 


SEQ 0035 





with the ? . , 
Auto Line Feed Option set to produce an automatic line feed 
after every re 


ceived carriage return, 
between each printed Lin 
e. 


EXAMPLE : 


there will be a blank Line 
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6.1.11 Test 12 - Printer Sell Test 


T 
his —— checks the printer bell buffer to insure that eight 
are dist 
inctly heard, even when sent at the maximum transfer rate. 
The ram sends , 
8 bell codes at the maximum rate to the printer 
then waits 2.5 seconds to 
allow the operator to hear the bells. 


6.1.12 Test 17 - Life Test 


Th 

Hs test runs continuously and is run as an individual, special test. 
t is not 

part of the standard printing test sequence. 


This test prints 2 Lines of each 
printable character and then repeats 
continuously. The second line of e 
ach character is overprinted 4 
times to conserve paper. At the end of each com 
plete pass through the : 
character set, a message is printed indicating the nu 
mber of passes 
executed. If any character (except ‘Rubout’’) is typed on the ke 


yboar 
during this_ test, the pattern will change and restart with the typed 
character. This will only happen if keyboard control is in use. 


+4 the Auto Line Feed Option is set to produce an automatic line fe 


orter every received carriage return, the test will print six Lines of 
eac 


epyrecter with a blank Line between the first and second Lines as 
well as 

een each group of characters. 

EXAMPLE : 


AAAAAAAAAAAAAAA 


SEQ 0037 
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6.2 ECHO TESTS 


These 
tests are designed as a test of the keyboard and an aid in iso- 
lating troub cates 
les within the terminal. At the beginning of each test, 
the test number will 
be preted ere + a ae ae is being execut- 


SELETE ate ory time, nother in keyboard 

control or not, will exit the current 

Echo test and print a test ter- 

mination message. If in keyboard control 

. the select test message 

will be printed and the program will await a test sel 

ection as wusua 

” — register control, the program will halt (at SELLHLT 
waiting 

for control via the switch register. A detailed description of 


test follows: 


6.2.1 Test 20 - Character Echo Test 


This test is de , 

si to operate the terminal in a simulated local 
Any character ty 

ped on the keyboard (except a ‘‘rubout’’) will be 

echoed to the printer. 


If th 
e LA36 terminal is in half duplex with the Auto Line Feed Option 
available, t 
bi a carriage return may cause a garbled response on 
eo a during t 
is test. 


6.2.2 Test 21 - Line Echo Test, Fast Rate 


This test contin 
ually sends full Lines of any character up to the max- 
imum column width. The 
test prints a ‘0’’ character when started until 
a key is typed on the keyboard. 
The program will then cand the typed 
character until another shoraster ist 

or the ay is terminated 

y typing a ‘‘rubout’’. The characters are transm 

itted at the maximum i , 
rate with a carriage return-line feed inserted after 


eac 


SEQ 0039 


every 132(10) 
printable characters. 


If the LA36 is in half duplex when runn 

ing this test, characters may 

be Lost or garbled whenever a character is type 
d on the keyboard. 


ae em y Line Feed Option set to produce an automatic 
ine 

— every carriage return, there will be a blank Line between 
eac 

printed Line. 


6.2.3 Test 22 = Line Echo Test, Slow Rate 


This te 

st is identical to Test 21 except a delay of 1.8 seconds is 
inserted betwe ‘ 

en each character to allow the print head to perform an 

LCV between characters. 








C 4 
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6.2.4 Test 23 - Character/Code Echo Test 


This test will print the octal c 
ode received by the processor followed 
by the character or the mnemonic of the 

character oyery time a | is : 

eyboard. The parity of the rece 
in- 

dicated as either odd or even. Allow sufficient time 

between char- | 

acters for the Line to be printed. 


With the Auto Line Feed Op 2 ; 

tion set to produce an automatic line feed 
after every received ay tt , 

return, there will be a blank Line 
between each printed Line. 


EXAMPLE : 


VEN 


6.2.5 Test 24 - Selected Pattern Echo Tes 
t 


ti test is designed to give maintenance the flexibility to choose 
t 


ir own patterns for isolating any specific problems which may arise 
in the fiel 


Type any characters (except control-C and rubout) and each character 


we 
LL -' ogee as typed. A maximum of 256(10) characters may be in- 
putted. 
o carri returns or line feeds are inserted by the pro- 
gram, all charac s 
ters must be inputted by the operator. To terminate 
the input string type a co ‘ 
ntrol-C, the program will then continually 
echo the inputted pattern. To sto 
p the printing, type control-C. The 
ropes will stop printing the pattern and 
will wait for either anoth- 
er pattern input terminated by a control-C, or the 


To exit the test at any t 


When any options are available, be careful what char SEQ 0042 
acters or char- 
acter sequences are selected. 


6.2.6 Test 25 - Bell Echo 
Test 


This test is designed to test the bell on column 64 if typing has oc- 
curred on the line. The test prints a message: 


TYPE ANY PRINTABLE CHAR 
ACTER AND LISTEN FOR BELL ............ 


After the test message is printed, typ 

e any printable character on the 

ke rd. The character will be echoed and th 

e bell should ring. The 

message will then be typed again. Type the ‘‘rubout’’ k 
ey to terminate — 

the test at any time. 
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6.4 STANDARD 1/0 TESTS 


These tests 


are desi as a brief check of the console terminal in- 
terface logic. 
ach check is structured as an independent test and 
the switch register control 
s may be used. A description of each test 
is given in the program Siadgs 
Any errors encountered during the 
1/0 tests will cause a halt at location ‘ER 
RHLT’’ if switch 14 is down. 
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400 TITLE CZLACEO LA36 TERM (DL11 & KL11) 
[LA36 DIAGNOSTIC (DL11 & KL11 INTERFACE) 


; AUTHORS : ROBERT W. BAKER 

3 R. QUENNEVILLE 

; RALPH A. SCHAUBER 
3 JOHN V. CHATALIAN 


[COPYRIGHT 1974,1977,1978 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


Besasesssesseas 


.SBTTL SWITCH REGISTER OPTIONS 
‘SWITCH POSITION FUNCTION 


15 UP (1) HALT AT COMPLETION OF CURRENT TEST 
DOWN (0) CONTINUE NORMAL TEST SEQUENCE 


14 UP (1) CONTINUE ON ERROR 
DOWN (0) HALT ON ERROR 


13 UP (1) DRIVE ONLY CONSOLE TERMINAL 
DOWN (0) DRIVE ALL TERMINALS 


38s 


MON 
Ph 
¢ 


DOWN (0) NORMAL TEST SEQUENCE 


09 UP (1) CPU TYPE IS AN LSI-11, 
DOWN (0) ALL OTHER PDP-11 CPU'S 


PDP-11/03 


08 HALT TO SELECT TEST AT END OF CURRENT TEST 


UP (1) 

DOWN (0) LOOP ON TEST SEQUENCE 
TEST # SELECTION 
# OF COLUMNS AT START-UP 


: 11 UP (1) LOOP ON INDIVIDUAL TEST 





i Tae | 
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SPECIAL OPERATIONAL INFORMATION 


— 
. 
‘ 
‘ 


-SBTTL SPECIAL OPERATIONAL INFORMATION 


THE STANDARD CONSOLE TERMINAL INTERRUPT VECTOR AND REGISTER 
ADDRESSES ARE USED. TO REDEFINE THE LOCATION OF THE CONSOLE 
TERMINAL THE SYMBOLIC LOCATIONS ‘‘CONADD'’ AND ‘‘CONVEC'’ SHOULD 
BE CHANGED BEFORE START UP. 


BEFORE START UP REFER i. THE DESCRIPTION OF THE ROUTINE 'DLY"’. 
TIMING IS A FUNCTION OF THE PDP-11 MODEL AND MEMORY TYPE AND 
SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC. 


IF CPU IS A PDP-11/03 , LSI-11 SET SWITCH REGISTER 
BIT 09 TO A 1. SPECIAL TESTS ARE RUN ON THE DLV11. 


SYSTEMS WITHOUT A_HARDWARE SWITCH REGISTER SHOULD USE 
MEMORY LOCATION 176 AS A SOFTWARE SWITCH REGISTER. 


THIS DIAGNOSTIC IS FOR VERIFICATION OF BASIC TERMINAL 
FUNCTIONS ONLY. IF THE TERMINAL UNDER TEST HAS HARDWARE 
OPTIONS INSTALLED RUN DIAGNOSTIC MAINDEC-11-DZLAF-A, THE 
LA36 TERMINAL OPTIONS TEST. 
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SYSTEM EQUATES 


-SBTTL SYSTEM EQUATES 


REGISTER EQUATES 


PC=%7 
PSW=177776 
SYSTEM EQUATES 


OPE 
SCOPSW=81T14 + SCOPE SWITCH 
NITRSW=81T11 ;TEST LOOP SWITCH 
POPSP=5726 :POP STACK ONCE 
:POP STACK TWICE 
PRIORITY LEVEL DEFINITIONS 


LS111=B1T9 zFLAG FOR LSI-11,11/03 
PROGRAM TRAP EQUATES 
TYPE=EMT +0 


Bssaseseseesess 


TYPEM=EMT +7 
DELAY=EMT+10 
TTYCTL=EMT+11 
CRLF =EMT+12 
SCRLF =EMT+13 


4 as Ss SS Sa MS Ss Ss SS SS SS YH I HY 
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SYSTEM EQUATE 


LF=EMT+14 
PRINTC=EMT+15 
PRTHDR=EMT +16 


READC=EMT+25 





zo 
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TRAP CATCHER & STARTING ADDRESSES SEQ 0050 


Lb -SBTTL TRAP CATCHER & STARTING ADDRESSES 

13700 000000 ABS ,AMA 

13800 000000 

13900 

14000 

14100 
UNASSIGNED TRAP 
:SP OVERFLOW, BUS ERROR TRAP 
RESERVED INSTRUCTION TRAP 
; TRACE TRAP 
: TRAP TO CALL IOX 
;POWER FAIL TRAP 


000000 L 
002722 sEMT TRAP 
000340 


000042 
000000 
000046 
011522 
000052 
010000 


DISPREG: SOFTWARE DISPLAY 
SWREG: ° SOFTWARE SWITCH REGISTER 


START UP WITH I/0 TESTS RUNNING 

START UP, SKIP ALL I/O TESTS 

START UP TERMINAL CONTROL WITH I/O TESTS 
START UP TERMINAL CONTROL WITHOUT I/0 TESTS 


ow 
Mr 3 
ad ood 
so 


Beassseseses 


a8 


;BOTTOM OF STACK 
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SYMBOL DEFINITIONS 


SEQ 0051 


-SBTTL SYMBOL DEFINITIONS 


ONADD: 177560 
: 60 
176500 


zADDR OF CONSOLE RECEIVER STATUS REG 
SCONSOLE TERMINAL INTERRUPT VECTOR 
SADDRESS OF FIRST DL11, DEFAULT TO DL11-A,8 
TIF DL11=C,D THEN 

:SET TO 158510 FOR FIRST, 16 (OF 31) OR 
SSET TO 176000 FOR LAST 16 (OF 31) 

:0R SET OTHER DESIRED CANT ADDRESS 


CONSOLE RECEIVER BUFFER 

CONSOLE TRANSMITTER STATUS REG 
CONSOLE TRANSMITTER BUFFER 

+} ‘ RECEIVER INTERRUPT VECTOR 
3C.T. RECEIVER PRIORITY LEVEL 
ie - TRANSMITTER INTERRUPT VECTOR 
3C.T. TRANSMITTER PRIORITY LEVEL 
SADDRESS OF FIRST ACTIVE DL11 
; OLE TERMINAL CONTROL be | 


DR ST 
= CONTAINS ADDRESS OF TEST SCOPE ENTRY 
CONTAINS TEST PROGRAM INDICATORS 


CURRENT PAPER +e BINARY 
ae OF EXECUTION 

# OF MULTIPLE DL11S 
31/0 TEST ITERATION COUNT 
; TEMP STORAGE FOR TESTS E021 & E022 
SCOUNTER FOR ROUTINE ‘‘AREAD 
[COUNTER FOR ROUTINE ‘PRINTC'' 
SADDRESS OF MULTIPLE DL11 STATUS 
; ROUTINE ‘DELAY’’ 


: C E 

ZPARITY FLAG FOR RECEIVED CHAR 
3CHAR CODE WITH PARITY BIT 
;COUNTER FOR TEST ROUTINE ‘PT4'' 
;CHECK FOR INPUT FLAG 
TEMPORARY WORKING STORAGE 

SW REG ADDRESS 

;TIME COUNTER FOR LSI-11 TESTS 
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SYMBOL DEF INIT 
23900 


SEQ 0052 
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PROGRAM INITIALIZATION & CONTROL SEQ 0053 


-SBTTL PROGRAM INITIALIZATION & CONTROL 


{RARER 

[COMMON HALT=--WHEN IN SWITCH REGISTER nat t THE CPU 
: WILL BE ADVANCED TO THIS COMMON HALT WHERE 

; A NEW TEST WILL BE EXPECTED TO BE STARTED 


° 
[RARRKKKE 


177730 CHLT: LEVEL TEST CURRENT LEVEL 
B SELHLT ZBRANCH IF 0, DO NOT HALT 
me ng zPUT ADDRESS OF CALLER INTO RO 
SELHLT: RETURN FROM INTERRUPT 
177777 + 004324 START1: #177777 ,ATOX FORCE END OF I/O TESTS 
104006 000726 AMCHALT ,WAITF sFORCE SR CONTROL 


STARTX 
104011 000716 START2: MTTYCTL,WAITF ;FORCE TERMINAL CONTROL 
005320 004300 a create’ x sFORCE ALL I/O TESTS 


104011 000700 STARTS: MTTYCTL,WAITF ;FORCE TERMINAL CONTROL 
177777 + 004262 Steen’ ® ;ATOX sFORCE END OF I/0 TESTS 
004252 START: #AT1,ATOX :FORCE ALL 1/0 TESTS 
000654 #CHALT ,WAITF ;FORCE SR CONTROL 
STARTX: SPBOT , SP :SET STACK POINTER 
) SAVE CURRENT VECTOR 


176736 MOV SET UP TIMEOUT VECTOR 
asR TRY TO REFERENCE HARDWARE SW REG 
BR 11 BRANCH IF NO TIMEOUT TRAP OCCURS 
177632 : P POINT TO SOFTWARE SWITCH REGISTER 


(SP)+, (SP)+ TACK 
OR TO USE SOFTWARE 
OC 176 


177574 aes TIMER 
: (SP)+,4 “RESTORE TIMEOUT VECTOR 


a 6 
NCHK ALLOW INPUT CHECKING 
176664 PO.MACHER CLEAN UP 
PRGID S INITIALIZE PROGRAM FLAGS 
CNTLSW ZINITIALIZE TERMINAL CONTROL SWITCH 
S INITIALIZE LEVEL 


LEVEL 
#PFAIL 24 [SET ADDR POWER FAIL ROUTINE 
PC, CONIT :SET UP CONSOLE TERMINAL ADDRESS 
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PROGRAM INITIALIZATION & CONTROL SEQ 0054 


4700 RRR RRRKERE 

4800 TREAD THE PAPER WIDTH, NUMBER OF COLUMNS, 

4900 :FROM SWITCH REGISTER POSITIONS 0-7. SAV vE AND 

5000 CONVERT TO 3 ASCII CHARACTERS. A WIDTH GT132 

5100 ‘OR LT30 COLUMNS (DECIMAL) WILL BE ABORTED TO 132. 

5200 THE SWITCHES MAY BE CHANGED ONCE THE PROGRAM TITLE OR THE DL11 COUNT 
5300 MESSAGE HAS STARTED TO PRINT. 


{ RARERRKEKE 


py 
3388 
38 


ed ed ed ed ed eed ed ed 


017701 177542 aSR,R1 
2701 177400 #177400,R1 
000204 R1,4204 


000035 : R1,435 
3$ 


3 T 132 
000204 : #204 ,R1 [COLUMNS LT 30 OR GT 132, © tens 
177450 : R1,WIDTH [SAVE NO. COLUMNS IN WIDTH 
014127 #HDRO ,RO ;ADDR TO STORE ASC11 COLUMN VALUE 
000003 #3,R2 ;D0 A 3 CHAR. CONVERS! 

5$ CONVERT NO. COLUMNS TO ASCII 


6$ 
000000 : MOV #0,R0 ; TRANSMIT A 
sNULL CODE 
: TYPE PROGRAM TITLE FIRST TIME RUN 


a OAVE (SR) INTO R1 


geeseess 
sssssssss 
RELATIRVELS 


6700 001214 
6800 001216 
6900 001220 
7000 001224 
7100 001226 
7200 0012 

7300 001232 


012767 000240 177754 MO ANOP ,4$ 
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PROGRAM INITIALIZATION & CONTR 


7500 5s RRA KK 

7600 THIS ih PART CHECKS THE PRESENCE OF DL11-A OR DL11-C 
SSTARTING AT 776500. A MESSAGE WILL BE PRINTED ee THE NUMBER 
;PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS _EACH 
THE MULTIPLE DL11S IN THE SYSTEM IF SWITCH 13 IS DOWN (0). 


{ RRRREREEKE 


012767 001320 176536 68: MWEND2A,MACHER ; INITIALIZE TIME OUT TRAP 
177334 DLADR ,RO ZADDRESS OF FIRST DL11 TO RO 
177332 eR) SET DL CHECK COUNT 
177374 DLCNT s INITIALIZE DLCNT 
ENDS: (RO) 31S DL PRESENT? 
001332 176512 #END2 ,MACHER TYES, RESET TIME OUT TRAP 
177334 _— STORE ADDRESS OF FIRST DL11 


; CON 
: (RO) 71S DL11 PRESENT 
000010 : SPOINTER AND DL11 ADDRESS 
177344 s INCREMENS COUNT OF DL11'°S 
R1 [DECREMENT DL CHECK COUNT, DONE? 
7BRANCH IF DONE 
; CHECK eer OF NEXT DL11 


a a 4 Ss HK I 


END4 ; IT 
000010 - :NO, » CHECK NEXT DL 


: 'DL11 NOT —" 
177316 : DLCNT.R1 GET # DL11°S 
014064 MO #D0L11S1,R0 SADR OF ASCII CHAR STORAGE 
#2,R2 :# OF ASCII CHARS 
[CONVERT NUMBER 
z TYPE MESSAGE 


SSSs85885e5 


ze 
8 
888888s88ssss 


oo 
S38 
8 —_ 
Sete 


001 
10400 00135 
10500 001352 

0013 


104007 
014051 


3838 


Ranke kth 

EXECUTE THE STRING OF CONSOLE TERMINAL I/0 TESTS 
THEN EITHER HALT AT LOCATION SELHLT OR CONTINUE WITH 
PRINTER TESTS AS A FUNCTION OF SR BIT 8. 


{ERE KEEKKK 


177254 RTNNO 3SET ROUTINE NO = 0 
177266 LEVEL 7SET LEVEL = 0 
3676 177777 aaa SEE IF 1/0 IS TO BE SKIPPED 


SKI 
005266 177234 #ATO,NXTST ADDRESS OF FIRST 1/0 ai 
F SET UP TEST PARAMETERS 
177264 @CURTST :GO TO I/0 TEST ROUTINE 


SSSISsES3SS 
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PROGRAM INITIALIZATION & CONTR 


{RARER 
;CHAINN=- THIS PORTION IS THE COMMON RETURN 
: FOR ALL THREE CLASSES OF TESTS. 


1=-IF AN ERROR OCCURRED DURING Ra 1/0 TEST THE 
BE LOOPED 


B35 


LOW THE 
ERROR HALT TO OCCUR AGAIN IF IT STILL EXISTS. 


2--IF THE OPERATOR IS_ IN THE MAINTENANCE 
MODE (BIT 8 SET = 1 AT START UP TIME), THE 
SELECTED PROGRAM WILL LOOP CONTINUOUSLY 
IF SR BIT 11 IS SET=1. IF BIT 11 IS = 0 
THEN THE PROGRAM WILL BE ADVANCED TO 
THE NEXT TEST IN IT'S CLASS IF BIT 8=0. 
AS_LONG AS BIT 11 AND 
BIT 8 ARE 0, THE CLASS OF M3 LR a Migs 


S3888s 


: 


E CPU 
oS HALT AT LOCATION SELHLT AND WAIT FOR THE 
NEXT TEST R 
SWITCH REGISTER. 


= KEKKKKKEKKE 


4700 
12800 aby hs 032767 000001 177214 : #1, CNTLSW CHECK IF TERMINAL CONTROL 
1420 BEQ 1$ ;BRANCH IF NOT 


TO BE SET IN THE 


—precesny 


— 


14900 

15000 001422 

15100 001424 177214 1$: TST PRGID 

5200 001430 100016 3 

001432 040000 177254 #SCOPSW,aSR ; ERROR. CHECK IF SCOPE OPTION ON 

001407 BRANCH IF NO SCOPING 

177777 177172 #-1,SCOPTR “YES, CHECK IF OK TO SCOPE THIS TEST 
$ ;BRANCH IF NOT OK 

177164 @SCOPTR ,aSP ADDR OF SCOPE ENTRY INTO STACK 

:GO TO SCOPE ENTRY IN TEST 
100000 177156 : #B1T15,PRGID CLEAR ERROR IND. IN PRGID 
177162 $ LEVEL ; hoy —_ 


4$ 3 
004000 177212 ANITRSW,@SR ZTEST LOOP SWITCH ON (=1) 
5$ BRANCH IF NO LOOP TEST 
:GO BACK TO TEST 
177146 $ ICTR : DECREMENT }: Seca COUNT 


6$ 
:NOT ZERO, REPEAT TEST 
000400 177170 : #B1T8,aSR ZTEST IF SEQUENCE TEST (BITS) 
BEQ BRANCH TO NEXT TEST IF BIT8=0 
000146 JMP WAI TF :GO WAIT a hi. INPUT 
: :POP 2 OFF STACK 
: :THIS FORMERLY WAS RESET 
177152 T asR SCHECK SR 
1$ ;BRANCH_IF NO HALT WANTED 
177066 RTNNO,RO = CURRENT TEST NUMBER TO RO 
HAL T (NOT FOR TEST SELECTION) 
177076 : LEVEL STEST THE CURRENT LEVEL 
3$ BRANCH IF 0 


Segese8 
3 
SSRNBES 


: 


ron 
— 
& 
RS 
aN 


—— 
OSM 


SSbsbuees 


SSSBSSgSSgVsssggggsssss 
228 


od ed ss = = = =o ot os ot so SS SS ss ss I SS Ss Ss Ss 
N 
— 


BsB8583 


SEQ 0056 
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3 
gg 
z 


SRER BBR 
Segeese 
88888888383838333 
Pears Steet top 


cd cd ce ce ca a a ce ae ce ae ed ed ad ed ed ed 
ah 
RS 


pseuessesse 


58 


22500 001772 


012767 
012706 


000006 
000600 
177777 


005266 


177056 
177777 


000400 
000200 
007372 
000006 
000600 


177002 
176754 


176216 


177036 
177026 


177012 
177056 
176776 
176764 
176122 


176074 


2$: 
3$: 


SKIP: 


NEXT: 


NEXT1: 


LARK KKKK 


WAIT FOR FURTHER INSTRUCTIONS: 
PROGRAM 


-SET SR BIT 11=0 AND 
EXECUTING TEST ONCE 


= KKKKKKKKKK 


#6 ,MACHER 
#SPBOT , SP 


#~1 ,NXTST 
#ATO,NXTST 


a@CURTST 
#~1 ,NXTST 
NE 


xT 
#B1T8,aSR 
NEXT1 
#B1T7,PRGID 
#PTO NXTST 


#6 MACHER 
#SPBOT , SP 


@CURTST 
LEVEL 


; CLEAN UP 
SET UP STACK POINTER 


SET UP VALUES FOR NEXT TEST 
sEND OF I/0 TESTS (=-1) 
BRANCH IF NOT END 

SRESET NXTST TO FIRST 1/0 Ll 
a TT VALUES FOR NEXT TEST 


TEST 
TEND OF I/0 TESTS (=-1) 
[BRAN F NOT 


CH IF NO 
en of oat TEST SELECTION RIGHT AWAY 


; BRANCH 
;BYPASS SCOPING 


PROD TESTING, GO TO PRINTER TESTS 


[CLEAN UP 

7SET UP STACK POINTER 

SET UP NEXT TEST PARAMETERS 
:GO TO ROUTINE 


a" NUMBER INTO BITS 0-5 OF THE SR 
-SET SR BIT 11=1 TO LOOP ON SELECTED TEST 
-SET SR BIT 11=0 AND BIT 8=0 TO LOOP THROUGH 

SEQUENCE OF SELECTED TESTS. 


2s 
#B1T7,PRGID 


RO 3GET 
PRGTAB(RO) ,NXTST; rere te 


NXTST ,AWAI TF 


WAI TF 
@CURTST 


BIT 


8=1 TO HALT AGAIN AFTER 


OR TTYCTL IF START WAS AT 210 
:CLEAN UP 

3;SET UP STACK POINTER 

GET CURRENT SW REG 


TEST IF PROG NO. IS _I/0 TEST 
SBRANCH IF EQ OR LT 37. 
31/0 TEST, CLEAR PRGID 


sBYPASS SCOPING 
; CLEAR 


C BIT 
fee es ADDRESS OUT OF 
DRESS TABLE 


I 
SSET UP TEST PARAMETERS 
760 TO TEST 


AN ECHO OR PRINTER 


SEQ 0057 
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INITIALIZATION & CONTRO 


[RARER EKK 
;TTY1== THIS SECTION IS USED WHEN THE DIAGNOSTIC IS BEING CONTROLLED BY 
THE CONSOLE TERMINAL, IT IS EFFECTIVE ONLY WHEN THE DIAGNOSTIC 
STARTING ADDRESS IS 210 AND SR BIT 8 WAS SET AT START TIME. 
THE RESPONSE TO THE MESSAGE “SELECT TEST NO." MUST BE THE 2 
DIGIT OCTAL TEST NUMBER FOLLOWED BY : 
"1" TO LOOP ON TEST 
'S'* TO LOOP ON SEQUENCE 
"."" TO EXECUTE TEST ONCE a 
ALL SPACES WILL BE IGNORED. AN ILLEGAL INPUT WILL BE FLAGGED BY A ‘” 
AND THE RETYPING OF THE ABOVE MESSAGE. 


022626 


177452 
177777 
000036 


176576 

000036 

176412 

000250 
28300 002212 


176602 
176572 


176560 


176620 


REKKKKKKKK 


TTY1: 


atkKs 
1$ 


@TKB,RS 
#177600,R5 
5.4177 


e 


ore -CNTLSW 
ANITRSW,CNTLSW 
2s 


#B1T8,CNTLSW 
TTY18 


CHAINY 
#~1, INCHK 
#30. ,RO 


INCHK 
TEMPCH, #40 
#30. ,RO 
@aTKB,aTPB 
PC, TESTC 
8$ 

RO,R5 

R5 


R5 
R5 


TEMPCH #40 
2s 

#30. ,RO 
@TKB,aTPB 
PC, TESTC 
8$ 

RO,RS 


;POP 2 FROM STACK 
TEST IF ANY INPUT 


3 CH IF NOT 
CLEAR LOOP BITS 


CHECK IF LOOP ON TEST 

;BRANCH IF NO LOOP ON TEST 

:LOOP ON TEST 

: TEST IF LOOP ON SEQUENCE 
CH_IF NO LOOP ON SEQUENCE 

CHAIN TO NEXT TEST 

STOP INPUT CHECKING 

;DELAY FOR HALF DUPLEX 


; TYPE MESSAGE 
ALLOW INPUT (CH CHECKING AGAIN 
;TEST IF CHAR Is A SPACE 

(CH IF YES 
“DELAY FOR HALF DUPLEX 
;READY? 
TECHO CHAR 
CHECK IF CHAR IS Ok 
‘0k. PUT CHAR INTO RS 
‘SHIFT INTO POSITION 5-3 


WAIT FOR NEXT CHAR 
CHECK IF A SPACE 
BRANCH IF SPACE 

DELAY FOR HALF DUPLEX 


;READY? 
sECHO CHAR 
:CHECK IF CHAR IS OK 


ERROR IN CHAR 
70K.R5 NOW = OCTAL TEST NO. 
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28400 002214 
28500 002216 
28600 002224 
28700 002226 
28800 002232 


32600 002456 


176456 
000036 


176352 
004001 
176422 
176412 
176402 
176372 
176362 
000001 
000401 
000006 
000600 
000040 
000030 
000020 
000001 
001300 
000200 


002522 
176204 


176230 
000077 


000040 


176354 
176362 
000114 
000154 
000123 
000163 
000056 
176304 


176274 
175436 


176232 
176226 
176210 
001700 


176142 


3$: 


TEMPCH, #40 
3$ 
#30. ,RO 


@aTKB,aTPB 
#4001, CNTLSW 


rn 

TEMPCH 154 

TEMPCH #123 

TEMPCH #163 

4$ 

TEMPCH, #56 

8$ 

#1, CNTLSW 

#401, CNTLSW 

#6 ,MACHER 
T,SP 

R5 440 

8$ 

R5 430 

6$ 

R5,420 

#1, CNTLSW 

7$ 


PC,CONIT 
#B1T7,PRGID 


R5 
PRGTAB(R5) ,NXTST; 
em TF 


@CURTST 


#77 ,aTPB 
TTY1B 


;WAIT FOR —- CHARACTER 


CHECK IF SPA 
BRANCH IF SPACE 
DELAY FOR HALF DUPLEX 


sREADY? 


ECHO CHAR 
oY BITS 11 & 0 
IS IT AN'L" ? 


‘BRANCH IF YES 
sCHECK LOWER CASE 
3NO, IS IT AN “'S" 
;BRANCH IF YES 
CHECK LOWER CASE 
wm. IS ITA". 7? 


3NO, ERROR 
sYES SET ONLY BIT O IN CONTROL WD 


2 SET Rabe 820 
AN UP 


SINIT SP 
:IS THIS AN I/O TEST 


[BRANCH IF YES 
:IS yt Be AN OPTION TEST? 


: SKIP YES 
‘e THIS AN ECHO TEST 
IF NOT 


CH 
[FORCE ECHO TEST TO A SINGLE RUN 
;LEAVE THIS TERMINAL AS CONSOLE 


SRESET CONSOLE TERMINAL ADDRESS 
BYPASS SCOPING 
:CLEAR C BIT 


ADDR OF TEST TO NXTST 
;CHECK IF TEST EXISTS 
BRANCH IF NOT 

;SET UP TEST PARAMETERS 
:G0 TO TEST 

es IF PRINTER IS READY 


SEND A 
; TRY AGAIN 


SEQ 0059 
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32800 7 TESTC=-CHECKS THAT THE INPUTTED CHARACTER IS BETWEEN 0 AND 7 INCLUSIVE 


32900 

33000 002460 3 3k 4 176214 000060 TESTC: TEMPCH, #60 ;CHECK IF NUMERIC AND EQ OR GT 0 
33100 002466 BH 1$ BRANCH IF OK 

33200 002470 000207 PC ERROR RETURN 

33300 002472 176202 000067 1$: TEMPCH #67 CHECK IF EQ OR LT 7 
33400 002500 2$ BRANCH IF OK 

33500 002502 000207 T PC ERROR RETURN 

33600 002504 062716 000002 2$: #2,aSP SET UP RETURN ADDRESS 
33700 002510 176164 TEMPCH,RO 7GET CHAR 

33800 002514 042700 177770 #177770,R0 SAVE ONLY THE DIGIT 
33900 002520 PC NORMAL RETURN 
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PROGRAM INITIALIZATION & CONTR 
34100 002522 
34200 002524 


38300 002646 

38400 002650 . 

38500 002652 
654 


674 
39500 002676 
39600 002700 
39700 002702 


PRGTAB: PTO 
PT1 


DATA _PATH TEST 

:PRINTER CHARACTER TEST 
ZNON=PRINTING CHARACTER TEST 
; CARRIAGE RETURN TEST 
;MULTIPLE LINE 4 


SINGLE LINE FEED T 


TEST 
‘PRINTING. FREQUENCY SWEEP TEST 
;RIBBON FEED TEST 


PRINTER BELL TEST 
: SPARE 


: EST 

CHARACTER ECHO TEST 

LINE ECHO TEST, FAST RATE 
LINE ECHO TEST, SLOW RATE 
;CHARACTER/CODE ECHO TEST 
;SELECTIVE PATTERN ECHO TEST 
s;BELL_ECHO TEST 

; SPARE 


* SPARE 


NO. 
NO. 
NO. 
NO 
NO 
NO. 
NO. 
NO 
NO 
NO. 
NO. 
NO. 
NO 
NO. 
NO 
NO 
NO. 
NO. 
NO. 
NO. 
NO. 
NO. 
NO. 





on 
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INITIALIZATION & CONT 


39800 002704 


40600 
40700 
40800 


000002 
000000 
000035 
177001 


002776 
000000 


002774 


[RAR RKERRER 


sEMTINT =~ 


rttttt tit 


EMTINT: 


1$: 
2s: 


3$: 
EMTTAB: 


MOV 


StQ 0062 


----- SERVICE ROUTINE FOR TRAPS THROUGH 


LOCATION 


asP,-(SP) sPUSH STACKED PC TO GET A WORK COPY. (Q) 
#2,aSP ‘SUB 2 TO POINT TO CALLING TRAP INSTR. 
a(SP) ,asP “PLACE TRAP INSTR INTO THIS STACK WORK AREA. 
asP 435 SEXAMINE ITS RIGHT SIDE. (Q) 
2$ *BRANCH IF WITHIN RANGE OF ESTABLISHED TABLE. 
a TELSE HALT. 
asP :MULT INSTR BY 2 TO GE GET WORD DISPLACEMENT. 
#177001 ,aSP [STRIP OFF OP CODE AND LS BIT 
#EMTTAB.aSP TADD IN STARTING ADDRESS OF TABLE. 
a(SP) ,asP [FROM TABLE GET OUT DESIRED POINTER. 
-(SP) :PUSH A ZERO P 

#33,-(SP) ‘PUSH A PC = 0 93s OF THIS ROUTINE. 

=DO RTI (POP=POP) TO ESTABLISH THE ZERO PSw. 
a(sP)+ :JMP TO ROUTINE LEAVING STACK AS FOUND. 


sMESSAGE OUTPUT ROUTINE 
A, TEST ERROR ROUTINE 
UNCONDITIONAL HALT 
‘KEYBOARD VECTOR/PRIORITY SETUP 
“PRINTER VECTOR/PRIORITY SETUP 
; COMMON TEST EXIT 
:SR BIT 15 HALT 
[MESSAGE OUTPUT ROUTINE, MULTI DEVICES 
;DELAY ROUTINE 
:CONSOLE TERMINAL CONTROL 
[CARRIAGE RETURN-LINE FEED TO ALL DL11°S 
*CARRIAGE RETURN-LINE FEED TO CONSOLE 
LINE FEED ONLY (TO ALL) 
*PRINT CHAR 
‘PRINT TEST HEADER 
[PRINTER READY 
TREAD CHAR 
31/0 TEST READ ROUTINE 
* CARRIAGE RETURN po (TO ALL) 
[BINARY TO ASCII CONVERSION 
:FORWARD ROUTINE ( BETWEEN TESTS ) 
SREAD CONSOLE KYBD ONLY 
SPARE EMT 
:SPARE EMT 
[SPARE EMT 
7SPARE EMT 
SPARE EMT 
SPARE EMT 


aon 
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PROGRAM INITIALIZATION 


500 003066 003072 SPARET 
SPARET 
SPARET: HALT 


SPARE EMT 
7SP. 


ARE EMT 
TRAP TO UNDEF INED 


om 


72 000000 sHALT IF 
5800 003074 000776 BR SPARET ZEMT IS ATTEMPTED. 


-SBTTL COMMON ROUTINES USED BY LA36 TESTS 


[RARER KKER 


:THIS SECTION CONTAINS MOST ROUTINES CALLED BY 
THE VARIOUS TESTS EITHER BY TRAPPING THROUGH LOCATION 
OR BY SUBROUTINE CALLS (JSR PC,***) 


rttitt tts 


TYPE A COMMON ROUTINE USED TO TYPE MESSAGES ON THE 
CONSOLE TERMINAL ONLY. THE NULL CHARACTER TERMINATES 
THE MESSAGE. CALLED THROUGH AN EMT TRAP. 
a ag SEQUENCE 


MESG zADDRESS OF MESSAGE 


SRkKR RRR 

TYP: RO,-(SP) ;SAVE_ RO 

GET POINTER TO ADDR. OF MESG. 
sADDR. OF MESG TO R1 

(R1)+,RO GET CHAR 
2s BRANCH IF WANT a a —— 


$ 
(SP)+,RO 


1$ 3 XT CHAR 
: SPRINTER READY? 

175460 RO.@TPB [LOAD PRINTER BUFFER WITH CHAR 
1$ 7GO GET NEXT CHAR 


SSCRLF : PRINTER READY? 
000015 175446 MO #15 ,aTPB : CR 
Cote READY? 


000012 175436 MOVB #12,aTPB :SEND LF 
RETURN TO CALLER 
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+ AXXXXAAKAN 


3 TYPM-=-MULTI TYPE=A COMMON ROUTINE TO OUTPUT 
A MESSAGE ON ALL DL11S_IF THE MULTI TEST 
SWITCH (BIT 13) IS RESET. THIS ROUTINE IS USED BY 
THE PRINTER TESTS TO TYPE HEADINGS. IF A UNIT 
IS NOT READY, THE CHARACTER WILL NOT BE TYPED. 


= XXXXXAAXKX 
TYPM: :GET POINTER TO ADDR OF MESG 


sADDR OF MESG TO R1 
1$: (R1)+,RO GET CHAR 
2s BRANCH IF WANT AUTO CR-LF 

3$ = CONT INUE IF WOT NULL 


URN 
2$: YES, SEND CR-LF 
BR 1$ NEXT CHAR 
3$: PRINT CHAR 
BR 1 :GO GET NEXT CHAR. 


52300 
52400 003214 SCRLF : SEND CR 
SLF: V ° 3SET LF —— 


END | 
?RETURN TO CALLER 


gassseseseess 
rate 


sss 
S88 
uS3s 


SCR: MOV ° ;SET CR CHAR 


zSEND IT 
RETURN 


[RRRKKREKKK 


SROUTINE TO PRINT TEST HEADER 


itiit tits 
000000 : ; TRANSMIT 
zNUL CODE. 
PRINT MESSAGE 
175362 MOV RTNNO,RO GET TEST NUMBER 
~ GET FIRST DIGIT 


RO 
177770 #177770,RO MASK FIRST DIGIT 
000060 ' #60,R0 ASCII 


*PRINT DIGIT 
175336 V RTNNO, RO ‘GET TEST NUMBER AGAIN 
177770 #177770,RO *MASK LAST DIGIT 
55200 003304 062700 000060 ADD #60,R0 *MAKE ASCII 
55300 003310 :PRINT DIGIT 
55400 003312 
55500 003314 
55600 003316 





om 
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PRahahalaiaheiaiaiaia! 


55800 
55900 
56000 TERRA-- COMMON ERROR RETURN Ay 1/0 16 co HALTS 
56100 3 WITH ADDRESS OF ERROR IN RO. CONTI 
56200 3 ON SAME TEST BUT NOT HALTING. ON ERR OR, 

: SET THE SCOPE BIT (14) = 1 AND PRESS CONTINUE 
56400 3 
56500 PRRRKEREEEE 
56600 
56700 003320 040000 175366 ERR: #SCOPSW,aSR sCHECK SCOPE SWITCH 
56800 003326 001404 1$ BRANCH IF NO SCOPE 
56900 003330 175310 PRGID sSCOPING WANTED, FIRST ERROR? 
57000 003334 100001 BP 1$ BRANCH AND HALT ON FIRST ERROR 
57100 003336 000002 sSCOPE EXIT 
57200 003340 100000 175276 1$: B #B1T15,PRGID sSET ERROR INDICATOR 
57300 003346 EHLT: Vv asP RO 
57400 003350 T -(RO) zsADDRESS OF CALL INTO RO 
57500 003352 000000 


HALT 
ERRHLT: RTI RETURN TO TEST FOLLOWING CALL 


{RRRKEKEKKK 


:STLSRV-—~ THIS ROUTINE SETS UP KEYBOARD INTERRUPT 
VECTOR AND PRIOITY. CALLING SEQUENCE 


STRDRV 
AT20C ;LOCATION OF NEW INTERRUPT VECTOR 


Peeeeeekeee 


000000 000012 STLSRV: MOV @(SP),STPRA+2 ;SET RETURN ADR AND VECTOR 
000002 ADD 
59000 003370 175226 
59100 003374 0 000000 STPRA: 
59200 003400 175220 TKLVL, (R1)+ 
59300 003404 
59400 
{RRKREKEKKK 
;STLSPV-- THIS ROUTINE SETS UP PRINTER INTERRUPT 
roe AND PRIORITY CALLING SEQUENCE 
LOCATION OF NEW INTERRUPT VECTOR 
[RRREKKKKKK 
000000 STLSPV: MOV @(SP),STPPAt2 ;SET RETURN ADR AND VECTOR 
000002 ADD #2,aS 
175202 MOV TPVTR,R1 
000000 STPPA: MOV #0, (R1)+ 


60900 003430 175174 MOV TPLVL, (R1)+ 
61000 003434 000002 RTI RETURN TO CALLER 





——- 
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ROUTINES USED BY LA36 TESTS SEQ 0066 
61200 SRREKKKR ERR 
61300 
61400 “DELAY=A COMMON aa te y DELAY PROCESSING 
61500 ; A GIVEN NUMBER OF MSEC. 
61600 $ CALLING SEQUENCE. 
ofa’ : MOV #5,R0 RO CONTAINS THE NUMBER OF MSEC DELAY DESIRED 
61900 ; 
62000 é THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP; 
62100 3 1$: DEC RI 
62400 é SINCE THE EXECUTION TIMES OF THE PDP11 LINE DOES VARY FROM 
62500 ; MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION 
; *"TIMER’' MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW 
62700 ; BEFORE STARTING THE DIAGNOSTIC. ‘‘TIMER’’ IS INITIALIZED 
62800 : FOR AN 11/05,11/10(=251). 
; MACHINE 05810 35840 15820 LSI&03 11/45 & 11/70 
63100 Hy BIPOLAR MOS CORE 
63200 
63300 “LOOP: DEC R1 3.4 99 Tom .30 -51 -90 
63400 ; BNE LOOP 2.5 1.76 2.6 -60 98 1.13 
63500 3; TIME= 5.9USEC 2.75 4.9 7.7 - OUSEC 1.49USEC 2.03USEC 
Seton ; SET TIMER 251 554 314 202 2127 1237 755 
63800 7 XXXXXMXXXXK 
63900 
64000 003436 010146 DLY: MOV R1,-(SP) SAVE R1 
64100 003440 016701 175226 1$: MOV TIMER,R1 >MOV 1 MSEC LOOP CNT TO R1 
64200 003444 005301 2$: DEC R1 ;DECREMENT COUNT 
64300 003446 001376 BNE 2$ BRANCH IF NOT ZERO 
64400 003450 005300 DEC RO ;DEC NO. OF MSEC DELAY 
64500 003452 001372 BNE 1$ ;DELAY AGAIN IF NOT ZERO 
64600 003454 012601 MOV (SP)+,R1 ;ALL DONE RESTORE R1 


64700 003456 000002 RTI 
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{RARER 


:PFAIL=-POWER FAIL ROUTINE 
: SAVE ALL REGISTERS AND SET RESTART ADDRESS 
: INTO LOCATION 24 


“RESTART==POWER FAIL RECOVERY 
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100 ; RESTORE ALL REGISTERS AND GO TO START 
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. 
Pi clielalialelahehahela! 


PFAIL: RO,-(SP) 
MO 


174324 
000010 SAVE STACK POSITION 
003516 174312 STORE RESTART ADDRESS 


SAVR6: . 0 
RESTRT: 
1$ 


177766 SAVR6,SP sRESTORE STACK POINTER 
174272 (SP)+,24 sRESTORE PFAIL ADDRESS 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
012600 (SP)+,RO 
2500 003546 175236 START 


2600 
2700 003552 : eASCIZ <ACRLF>/POWER/<ACRLF > 
003555 


3560 
-EVEN 
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4100 

4200 003562 
4300 003566 
4400 003572 
4500 003576 
4600 003602 


016705 


175052 


175050 
175026 
175056 


177777 |=175012 
000001 1 


75022 


LEAR KREEKEK 


{ FORWARD-~THIS ROUTINE TRANSFERS THE 2 OR 4 ARGUMENTS 
FROM THE TEST ROUTINE. THEY ARE; 


1= ROUTINE NUMBER 


FORWDA: 


FORWDB 


ADDRESS OF NEXT TEST 


3- ITERATION COUNT (1/0 TESTS ONLY) 
4- SCOPE ENTRY ADDRESS (1/0 TESTS ONLY) 


RHEKKKKKKK 


SFORWD: 


MOV 
MO 


NXTST,R5 z;ADDR OF NEXT TEST TO R5 
(R5)+,RTNNO ;GET NUMBER OF NEXT TEST 
(R5)+,NXTST SGET ADDR OF FOLLOWING TEST 
PRGID ;CHECK IF I/0 TEST 

FORWDB [SKIP THE FETCH OF ITER CNT AND SCOPE 
(R5)+,1CTR ZGET ITERATION COUNT 
(R5)+,SCOPTR GET SCOPE ENTRY POIN 

RS, CURTST at POINT TO TEST IN CUR TST 
#-1,SCOPTR FORCE NO SCOPE 

#1,1CTR [FORCE INTERATION COUNT OF 1 
FORWDA 


SEQ 0070 
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ROUTINES USED BY LA36 TES SEQ 0071 


[RARER 


ZAREAD~—A ROUTINE WHICH, THROUGH THE FACILITY OF 
THE MAINTENANCE BIT, OUTPUTS TO THE 
PRINTER BUFFER AND READS THE KEYBOARD 
STATUS DONE. IF THE DONE IS NOT S 


CONTINUE TO CONTINUE WITH TESTS. 


8700 
8800 003710 


012767 


000600 


000004 
174740 
174726 


000001 
174764 


174666 
174672 
174666 


174662 
174654 


174650 
174642 
174622 
174614 
000004 


174626 


 RRKKKKEKEK 


#600,BRCTR 
#4,aTPS 
aTPB 

aTKS 

2$ 

#1 -RO 


BRCTR 
1$ 


SAREAD 
2$: 


LRRRRERKEKE 


SET UP 600 MSEC DELAY 
[SET MAINTENANCE BIT 
;LOAD PRINTER BUFFER 
CHECK DONE BIT 


;BRANCH IF DONE 
TO RO 
“DELAY 1 MSEC. 


3600 MSEC OVER 
BRANCH IF NO 


TRY AGAIN 
RETURN TO TEST 


S CONIT--THIS ROUTINE SETS UP THE DEVICE ADDRESSES 
AND INTERRUPT VECTORS FOR THE CONSOLE 


; TERMINAL . 
ittit tits 
CONIT: 

CONSET: mov 


RO, TPB 
CONVEC ,TKVTR 
CONVEC ,TPVTR 
od TPVTR 


: CONSOLE KEYBOARD STATUS ADDR TO RO 

; KEYBOARD oy —- (777560) TO TKS 
; INCREMENT RO B 

; KE YBOARD DATA ADDR (777562) TO TKB 

Z INCREMENT RO B 

7SAVE TPS OF LAST TE 

:PRINTER STATUS "ADDR 777964) TO TPS 

7 INCREMENT RO B 

7SAVE TPB OF LAST. TERM 

[PRINTER DATA ADDR (77566) T TPB 
KEYBOARD INTERRUPT VECTOR (60) TO TKVTR 


;PRINTER INTERRUPT VECTOR (64) TO TPVTR 


LAST TERM STATUS REG ADR 
;LAST TERM BUFFER REG ADR 
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SEQ 0072 


pekeee keen 


BINARY TO ASCII CONVERSION (1 TO 5 ASCII CHARACTERS) 
CALLING SEQUENCE 

: MOV ADDRESS OF Los o's STORE FIRST ASCII CHAR. INTO RO 
; MOV BINARY NUMBER TO BE CONVERTED INTO R1 

: MOV NUMBER TO BE CONVERTED AS A POWER OF TEN INTO R2 


3838 


BTOASC 


i aeeeenenne 
010267 SBTASC: R2,CNVCTR SAVE TEN POWER 
006302 A #2 


R 

062702 #ADTENP ,R2 ‘CALCULATE ADDRESS OF 
ZSTARTING TEN POWER 
014267 1$: -(R2) , TENPWR [POWER OF TEN VALUE TO TEN PWR 
005067 000044 DIGIT CLEAR CURRENT DIGIT 
2s: TENPWR ,R1 [SUBTRACT TEN POWER FROM BINARY VALUE 
3$ BRANCH IF END 
— 


BR 2 

3$: TENPWR ,R1 RESTORE SUBTRACTED VALUE 
#60,DIGIT CONVERT (DIGIT) TO ASCII 
DIGIT, (RO)+ PUT ASCII CHAR INTO USER 3UFFER 
CNVCTR FINISHED ALL CHARS. CALLED FOR 
1$ :BRAN ." iy NOT FINISHED 

CNVCTR: CONVERSION CHARACTER COUNT 

DIGIT: = CONVERTED CHARACTER 

TENPWR: .WORD CURRENT TEN POWER 

ADTENP: .WORD ..10.,100. .1000° , 10000. 


S8sesesses 


3 


ee ed ad 8 od ad ot 
_ 


Se 
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; # AXAXXAXAXX 


SREAD=~ A COMMON ROUTINE WHICH CHECKS THE KEYBOARD 
: DONE FLAG & SETS A FLAG INDICATING CHAR PARITY 


* XXXXANKXXX 


177572 SREAD: PC,CONIT sRESET CONSOLE ADR AND VECTORS 

174534 DLCNT CHECK IF MULTI DL11'S AVAILABLE 
SREADC NONE, WAIT FOR CONSOLE INPUT 

174526 174534 18: DLCNT , COUNTS SET BDL11 COUNT 

174474 174530 FSTDL,XCSR ZADDRESS OF FIRST DL11 INTO XCSR 

176524 2$: axCSR ;TEST IF ANY INPUT 


3$ CONTINUE IF NO INPUT 
1rsa16 XCSR,RO SET THIS DL11 AS CONSOLE 


7536 PC, CUNSET 
BR READ1 READ CHAR AND RETURN 
174502 : ;DECREMENT DL11 COUNT 
4$ TEST CONSOLE WHEN DONE DL11°S 
000010 174474 NEXT DL11 ADDRESS 
2s ; CONT INUE 


BR 
174410 t : CHE CK ee 
BPL 1 NO INPU 
174402 : s CHECK KEYBOARD DONE FLAG 
BP BRANCH IF NOT SET 
174376 174460 : :SAVE CHARACTER 
174454 174456 MO ZSAVE CODE WITH PARITY BIT 
177400 174450 SMASK UNWANTED BITS 


SS8288388 


SESSSSSeSSeeeee 


Resseagusseaes 


8 
88 
z 


— 2 es SY DY DY DY 


ek ks kk at a ss 
SSSIN ARRRWNS 


Sk 
174640 174641 TEMPCH,PARITY+1 :SAVE CHAR WITH PARITY BIT 
177600 174430 #177600, TEMPCH MAKE IT 7 BIT ASCII 

174424 000004 seen H.W [DISREGARD EOT 


000011 MOV #117,RO :SET SHIFT COUNT 
000377 174410 #377 ,PARITY SCLEAR PARITY FLAG 
RO *DECREMENT SHIFT COUNT 
2$ ‘EXIT IF DONE 
174401 PARITY+1 ‘SHIFT CODE 
1$ SCONTINUE IF BIT WAS ZERO 
174372 PARITY *CHANGE PARITY FLAG IF BIT WAS ONE 
BR 1$ > CONT INUE 
2s: 7SET, RET. TO CALLER 
I MXKXXXMXXKAX 
*PRINT=- A COMMON ROUTINE TO CHECK THE PRINTER READY FLAG 
= XXXXXXAXAX 
105777 174276 SPRNT: TSTB  alPS :CHECK PRINTER R READY FLAG 


100375 BPL $SPRNT BRANCH IF NOT 
000002 RTI SET, RETURN 


sseseses 


si 
NOF 
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Piclalelslahahahahalel 


:PRINTC=-SENDS A CHARACTER AT A TiME FIRST TO THE 
; CONSOLE _DL11 THEN TO ALL MULTIPLE DL11S IF 
1 0. IF THE REFERENCED PRINTER 


SENT TO THAT PRINTER. ENTER WITH CHARACTER IN RO. 
CALL: PRINTC 


° 
{RR KRKEKK 


016767 174252 174360 S$PRTC: SET CONSOLE ADR 
2767 000004 174352 TE 


174346 1$: 
BP’ 1$ sWAIT FOR CONSOLE READY 
000002 174336 3SET ADR 
174332 ;LOAD CONSOLE PRINTER BUFFER 
020000 174326 #B1T13,aSR =CHECK SW 13 
2s :S L TERMS IF SW13 DOWN 


AL 
174262 DLCNT CHECK IF MULTIPLE DL11°S 
BNE 3$ [CHECK FOR INPUT IF THERE 


000432 : 18$ 
174250 174256 : DLCNT , COUNTS PUT NO. DL11°S INTO COUNT3 
174216 174252 FSTDL.XCSR ADDR OF FIRST DL INTO XCSR 
174266 t eon CHECK FOR INPUT? 
174206 000020 RTNNO #20 et alg TEST? 
5 [BRANCH IF NOT 

104011 175236 MTTYCTL,WAITF §;KEYBOARD CONTROL? 

BNE 13$ SKIP INPUT CHECK IF NOT 
174220 : <= 


BP 3$ : INPUT 
000002 174210 #2,XCSR ‘SET BUFFER ADDRESS 
174204 174212 axCSR, TEMPCH 
177600 174204 #177600, TEMPCH 
174200 000003 coe TEMPCH #3 sCHECK IF CONTROL~C 


6$ :CONTINUE IF NOT 
174126 000024 RTNNO ,#24 CHECK IF TEST 24 
BNE 6$ ZCONTINUE IF NOT CONTROL-C 


000420 208 
174154 000177 z TEMPCH #177 CHECK IF RUBOUT 
:YES, CHECK TEST NUMBER 
174102 000017 RTNNO 417 ;TEST 17? 
BRANCH IF NOT 
174134 =  * ate :SAVE CHARACTER 
174064 000021 : RTNNO,#21 
BNE 8$ 
174176 174076 | -REPT 
174044 000022 : a RTNNO #22 
174076 174056 TEMPCH REPT 
BR 12$ ; CONT INUE 
174024 000021 : RTNNO,#21 : CHECK IF TEST 21 


24400 004606 
24500 004614 0 BNE 10$ CHECK IF TEST 22 
24600 004616 ASIUST STACK 


24000 004566 
24100 004574 
24200 004576 





CZLACEO LA36 TERM (DL11 & KL11) MACRO M1110 25-AUG-78 
BY LA36 TESTS 


COMMON ROUTINES 


USE 


000036 


005334 
173772 


000036 


005340 
173740 
006244 
000036 
173756 
000002 
000002 
173636 
000004 
173732 
173700 
000002 
173664 
173656 
000002 
177372 
000002 
173650 
173570 
104011 
173514 
173506 
000002 
173602 
177600 
173554 
173502 
000036 


000022 


000024 


10$: 


11$: 


12$: 


13$: 
14$: 


15$: 


16$: 


17$: 
18$: 


19$: 


20$: 


K 6 
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#30. RO 


E021A 
RTNNO ,#22 
11$ 


#30. ,R0 


E022A 
RTNNO 424 
22$ 


TERM 

#30. .RO 
TEMPCH,RO 
14$ 


AMTTYCTL WAITF 
6$ 

@CONADD 

26$ 

Spe st TEMP 


TEMPCH 

21$ 
RTNNO ,#24 
21$ 

#30. ,RO 


até 
#1 rr b TENG 


DELAY FOR HALF DUPLEX 


sYES, TEST 21 
PRINT TERMINATION MESSAGE 
CHAIN TO NEXT TEST 
;REPEAT TEST IF LOOP ON TEST SW SET 
CHECK IF TEST 2 
7NO, CHECK IF TEST 24 
ZADJU UST STACK 
DELAY FOR HALF DUPLEX 


YES, PRINT TERMINATION MESSAGE 


CHAIN TO NEXT TEST 
TE br IF LOOP ON TEST SW SET 


TEST 
T FOR NEXT TEST IF NOT TEST 24 
“RESET STACK 

‘TERMINATE TEST 

“DELAY FOR HALF DUPLEX 

:SET NEW CHARACTER 

‘SET STATUS ADDRESS IN XCSR 


Are > IF CONSOLE TERMINAL 
21S THIS DL 


TEST PRINTER READY 

[WAIT FOR READY 

SET XCSR TO PRINTER BUFFER 
3L CHARACTER INTO BUFFER 
DECREASE CO COUNT OF DL11°S 


ONE ,EXIT 
SET XCSR TO NEXT DL11 PRINTER STATUS 
3:GO_ TEST NEXT DL11 READY FLAG 
7SET XCSR TO PRINTER BUFFER 
7D0 NOT LOAD BUFFER 
2 WANT ee ol CHECK? 


BRANCH 
SPRINTING TEST? 
;BRANCH IF NOT 


KEYBOARD CONTROL? 

SKIP gp Cee IF NOT 
sTEST IF ANY INPU 

[BRANCH IF 

7SET ADR 


MASK UNWANTED BITS 
CHARACTER = CONTROL-C? 
CONTINUE IF NOT 


“;TEST 24? 


CONTINUE IF NOT 
;DELAY FOR HALF DUPLEX 


SEQ 0075 
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30400 005146 


32500 005264 
32600 


005650 
173516 


000001 
174660 
000036 


173416 


173450 
173402 


173434 
173364 


173416 


000017 


000021 


173414 
000022 


173376 


SEND _CR-LF 
#RESET STACK 


E0248 
TEMPCH #177 
23$ 


9$ 
#1,CNTLSW 
TTY1B 


;RETURN TO TEST 

7CHECK IF RUBOUT 

BRANCH IF NO 

CLEAR LOOP AND SEQUENCE BITS 


:GO WAIT FOR NEXT TEST 
; SAVE 


RO 
SDELAY FOR HALF DUPLEX 


sRESTORE RO 

CHECK IF TEST 17 
sBRANCH IF NOT TEST 17 
STORE INPUTTED CHARACTER 
CHECK IF TEST 21 


25$ 
TEMPCH, REPT 
RTNNO ,#22 


2 
TEMPCH, REPT 


; BRANCH 22 
> STORE INPUTTED CHARACTER 
;RETURN TO TEST 


SEQ 0076 
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COMMON ROUTINES USED BY LA36 TEST 


32800 
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1/0 LOGIC TESTS 


100 


88 


400 
500 


SSBseeeeuesszas 


4600 005346 
4700 005350 


005314 172500 
173302 


005346 172446 
173252 


-SBTTL 1/0 LOGIC TESTS 


RERKREKKREEK 


“ONLY THE CONSOLE TERMINAL IS TESTED. 

[UPON COMPLETION, THE CPU WILL EITHER HALT IF SR 

3;B1T8 IS = 1 AND AWAIT FUTHER INSTRUCTIONS OR CONTINUE 

sAND EXECUTE THE PRINTER TESTS CONTINOUSLY 

:IF AN_I/O TEST FAILS, THE CPU WILL HALT AT 

; ESS OF THE ERROR IN RO NLOC777700) PRESSING 


2 WE 
PRESSED, THE FAILED TEST WILL LOOP ON ITSELF 
WITHOUT FURTHER HALTS 


‘ eneeecence 
sATO-~ TEST #40--TESTS THE ABILITY TO REFERENCE THE 
RECEIVER STATUS WORD (TKS) WITHOUT TRAPPING. 


ettttt ttt 


ATO: 3s TEST NUMBER 
ATOX: : 


#3$ MACHER SSET UP MACHINE ERROR TRAP 
1$: aTKS REFERENCE RECEIVER STATUS WORD 
23: CHAIN TO NEXT TEST 
BR 1$ REPEAT TEST 
3$: ERROR TRAPPED WHEN REFERENCING 
BR 2s SRECEIVER STATUS WORD (TKS) 


{RARER KRREK 
sAT1~-TEST #41--TESTS THE ABILITY TO REFERENCE THE 
RECEIVER BUFFER (TKB) WITHOUT TRAPPING. 


ittit tits 


AT1: : TEST NUMBER 
NEXT TEST 
: ITERATION COUNT 
i SCOPE ENTRY 
#3$ MACHER SET UP MACHINE ERROR TRAP 
@aTkKB REFERENCE near ives BUFFER 
CHAIN TO NEXT TEST 
1$ :REPEAT TEST 
RAPPED WHEN REFERENCING 
2s RECEIVER BUFFER (TKB) 


SEQ 0078 
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1/0 LOGIC TEST 


4900 Peeeeeeeeee 
5000 SAT2--TEST #42=--TESTS THE ABILITY TO REFERENCE THE 
218 RANSMITTER STATUS WORD (TPS) WITHOUT TRAPPING. 


| sanntinamaa 


5300 

5400 005352 000042 AT2: 
5500 005354 

5600 005356 


5700 005360 $ NTRY 

5800 005362 005400 172414 MOV #33 ,MACHER TSET UP MACHINE ERROR TRAP 
5900 005370 005777 173222 1$: TS aTPS SREFERENCE TRANSMITTER STATUS 
6000 005374 5 2$: :CHAIN TO _ TEST 

6100 005376 BR 1$ sREPEAT TEST 

6200 005400 3$: 3 TRAPPED WHEN REFERENCING 
yar 005402 BR 2s TRANSMITTER STATUS WORD 


sk ih ik ke 
sAT3-~ TEST #43--TESTS THE ABILITY TO REFERENCE THE 
TRANSMITTER BUFFER (TPB) WITHOUT TRAPPING. 


ttt iti t ts 


ATS: TEST NUMBER 


$ 
005432 172362 MOV #3$ MACHER 
173172 1$: aTPB 


: ERROR TRAP 
REFERENCE ange tH ha BUFFER 
CHAIN TO NEXT TEST 
1$ :REPEAT TEST 

: TRAPPED WHEN REFERENCING 
2s ; TRANSMITTER BUFFER. 
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{RAERRAREKK 


sAT4=~ TEST #44--TESTS THE ABILITY TO SET AND CLEAR THE 
: RECEIVER INTERRUPT ENABLE BIT. 


{RRA 


AT4: TEST NUMBER 
sNEXT TEST 
; ITERATION COUNT 
:SCOPE ENTRY 
#PRTY7,-(SP) 3SET PRIORITY 7 
#1$,-(SP) 


#B1T6,aTKS SET INTERRUPT ENABLE BIT 
Games + CHECK IF BIT IS SET 


$ 
#B1T6,aTKS EAR INTERRUPT ENABLE 
#BI1T6,aTKS CHECK IF BIT IS CLEARED 
5$ BRANCH IF CLEARED 

z:NOT CLEARED, ERROR 


005522 : ZCHAIN TO NEXT TEST 
ty 005524 BR 1$ :D0 TEST AGAIN 


ys PRRRKKRERER 

10600 sATS=- TEST #45--CHECKS THAT THE RECEIVER INTERRUPT 
10700 : ENABLE BIT CAN BE CLEARED WITH RESET INSTRUCTION. 
10800 [RARKKRRRER 


ATS: : TEST NUMBER 


: 


8338 


OPE ENTRY 
#PRTY7,-(SP) TSET PRIORITY TO 7 
#1$,-(SP) 


173034 : I #B1T6,aTKS SET INTERRUPT ENABLE BIT 
3$: aTPSs BE SURE PRINTER IS DONE WITH my fis! MESSAGE 
3$ ;BEFORE ALLOWING FOLLOWING RESET 


sRESET 
173016 IT #BIT6,aTKS ;TEST INTERRUPT ENABLE BIT 
2$ BRANCH IF CLEARED 
zSTILL SET,ERROR 
[CHAIN TO NEXT ROUTINE 
;REPEAT TEST 


88 


1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
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12700 pe ekekeeeee 

12800 sAT6=- TEST#46--TESTS THE ABILITY TO SET AND CLEAR 
12900 é TRANSMITTER INTERRUPT ENABLE BIT. 

13000 PARKRe RRR 


13100 
AT6: 46 sTEST NUMBER 


ENT 
#PRTY7,-(SP) :SET PRIORITY TO 7 
#1$,-(SP) 


172762 : #BI1T6,aTPS SET INTERRUPT ENABLE BIT 
172754 #B1T6,aTPS CHECK THAT BIT IS SET 
2s [BRANCH IF SET 
sNOT SET, ERROR 
3$ [CHAIN TO NEXT TEST 
172740 2$: #B1T6,aTPS [CLEAR INTERRUPT ENABLE BIT 
172732 #B1T6,aTPS CHECK IF BIT IS CLEARED 
3$ BRANCH IF CLEARED 
NOT CLEARED, ERROR 
3$: CHAIN TO NEXT TEST 
BR 1$ :DO AGAIN 


KKKKKKRKKK 
jAT7=- TEST #47--TESTS THE ABILITY TO CLEAR TRANSMITTER 
: INTERRUPT ENABLE BIT WITH RESET INSTRUCTION. 


[RRAKKKKKKK 


AT7: 4 ; TEST NUMBER 
NEXT TEST 
; ITERATION COUNT 
7SCOPE ENTRY 
#PRTY7 ,-(SP) 7SET PRIORITY TO 7 
#1$,-(SP) 


172672 : IS #B1T6,aTPS eet INTERRUPT BIT 


16400 005724 000005 

16500 005726 172662 IT #B1T6,aTPS ‘CHECK iF BIT IS CLEARED 

16600 005734 2s BRANCH IF CLEARED 

16700 005736 ERROR, RESET DID NOT CLEAR BIT 
16800 005740 : CHAIN TO NEXT ROUTINE 

16900 005742 BR 1$ REPEAT TEST 
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17100 PRaRRRRE REE 

17200 tAT10== TEST #50=-CHECI<S THAT RESET SETS THE TRANSMITTER 
17300 : READY BIT AND THAT THE READY BIT CAN BE READ RELIABLY. 
17400 RRR RRR RRR 

175 


00 
17600 005744 AT10: x ; TEST NUMBER 
sNEXT TEST 
oe coe _— 
‘SCOPE ENT 
001000 172732 1$: — 3; SKIP TEST" IF AN LSI-11 


;RESET 
172624 gins 3 CHECK a a tet T READY BIT 


BRANCH IF SE 
ERROR, RESET DID NOT SET READY BIT 
2$: CHAIN TO NEXT TEST 
BR 1$ ;D0 AGAIN 


[RARE 
TAT11== TEST #51--TESTS THAT THE TRANSMITTER READY RESETS 
BY LOADING THE TRANSMITTER BUFFER. 


Ps 
PERAK 


AT11: 


7SCOPE ENTRY 
DELAY 150 MSEC. 


sRESET 
172572 ;LOAD TRANSMITTER BUFFER 
172564 [CHECK TRANSMIT READY BIT 
2s BRANCH IF CLEARED 
;NOT CLEARED, ERROR 
CHAIN TO NEXT TEST 
REPEAT TEST 


000226 1$: 
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pee RRR RR 
gAT12<- TEST #52=-CHECI.S THAT THE TRANSMIT READY BIT CAN 
: CAUSE AN INTERRUPT 


{RARER EKE 


AT12: 


; TRY 
4 y " TRANSMITTER INTERRUPT VECTOR 
7SEE CHAINY 


: COMMENT 
172532 aTPs ‘DISABLE TRANSMIT INTERRUPT 
-(SP) SET PRIORITY TO ZERO 
006074 #2$ ,-(SP) 


000100 172514 : —s #B1T6,aTPS ENABLE TRANSMIT INTERRUPT 
; TRANSMIT READY 1es7 NOT CAUSE INTERRUPT 
é TEST 
T INTERRUPT OCCURRED, CLEAN STACK 
CHAIN TO NEXT TEST 


LREKKKEKEEK 
ZAT13-= TESTA53--TESTS THAT THE TRANSMIT READY DOES NOT CAUSE AN 
: INTERRUPT WHEN THE PROCESSOR IS AT THE SAME LEVEL 


[RAKE REEK 


AT13: 


TRY 
:SET UP TRANSMIT INTERRUPT 
;VECTOR TO 4 
172472 2 TPLVL ,~(SP) 7SET PROCESSOR TO SAME LEVEL AS XMITTER 
006144 #2$,-(SP) 


172446 2$: aTPS ;DISABLE TRANSMITTER INTERRUPTS 
000100 172440 ah #B1T6,aTPS ENABLE TRANSMITTER INTERRUPTS 


172432 3 L aTPS 20K, NO a at A emma 
1$ 


T TEST 
ae OCCURRED ERROR, CLEAN 
25400 006174 BR 3$ CHAIN TO NEXT TEST 


SEQ 0083 
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1/0 LOGIC TEST SEQ 0084 

25600 pe ekeeeeeee 

25700 tAT14=< TEST#54=-TESTS THAT THE TRANSMIT READY DOES CAUSE AN 

25800 b INTERRUPT WHEN THE PROCESSOR IS AT A PRIORITY LEVEL 

25900 ; ONE LOWER THAN THE TRANSMIT INTERRUPT REQUEST LEVEL 
Peeee eee 

26100 

26200 006176 000054 AT14: 54 ; TEST NUMBER 

26300 006200 006262 AT15 NEXT TEST 

26400 006202 000012 10. : ITERATION _— 

26500 006204 006212 1$ ;SCOPE ENTRY 

26600 006206 104004 STPCHV :SET UP TRANSMIT INTERRUPT 

26700 006210 006250 3$ VECTOR TO 3$ 

26800 006212 005077 172400 1$: CLR aTPS ‘DISABLE TRANSMIT INTERRUPTS 

26900 006216 016746 172406 MOV TPLVL,-(SP) SET PROCESSOR PRIORITY ONE 

27000 006222 162716 000040 SUB #40, (SP) SLEVEL LOWER THAN TRANSMITTER 

27100 006226 012746 006234 MOV #2$,-(SP) 

27200 006232 000002 RTI 

006234 052777 000100 172354 2$: BIS #B1T6,aTPS ;ENABLE TRANSMITTER INTERRUPTS 

27400 006242 000240 NOP 

27500 006244 104001 ERROR 3NO INTERRUPT, ERROR 

27600 006246 000401 BR 4$ ;CHAIN TO NEXT TEST 

27700 006250 022626 3$: POPSP2 : INTERRUPT OCCURED, OK, CLEAN STACK 

27800 006252 005077 172340 4$: CLR aTPS ;DISABLE TRANSMITTER INTERRUPTS 

27900 006256 104005 CHAIN ;CHAIN TO NEXT TEST 

28000 006260 000754 BR 1$ ;REPEAT TEST 
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1/0 LOGIC TESTS 


172314 
006312 
000100 172276 


172266 


006354 
006350 


001000 172314 
000226 


172172 


33000 006424 
33100 006426 


{RRR REREKKK 


jAT15== TEST#S5=-TESTS THAT THE TRANSMIT READY DOES NOT 
: REINTERRUPT AFTER AN RTI WHEN THE READY BIT HAS 


NOT BEEN RESET. 


Tttitiitt 


AT15: ay 


1$: 
aTPs 
-(SP) 
#2$,-(SP) 
#BIT6,aTPS 
aTrTPSs 


1$ 
#6$ ,aTPVTR 
#5$,aSP 


e 


5$: 
6$: 


3$ 


3$ 


Plahelehelielelelahelel 


ENT 
7 SET TRANSAT INTERRUPT VECTOR 


“DISABLE TRANSMITTER INTERRUPTS 
SET PROCESSOR PRIORITY TO ZERO 


ENABLE TRANSMITTER INTERRUPTS 


;ERROR1, TRANSMITTER FAILED TO INTERRUPT 
[DISABLE TRANSMITTER INTERRUPTS 

CHAIN TO NEXT TEST 

;REPEAT TEST 

‘orton fe OCCURRED, nae th —" 


VECTOR TO 6$ AND RET 


RETURN FROM INTERRUPT 


CHAIN TO NEXT TEST 

Z;ERROR2, TRANSMITTER RE INTERRUPTED 
AFTER RTI WITH READY BIT LEFT ON. 
CLEAN STACK, CHAIN TO NEXT TEST. 


3AT16--TESTA56--CHECKS THAT RESET CLEARS THE RECEIVER DONE BIT 


[ARERR EKKK 


AT16: 


1$: #LS111,aSR 
#226,RO0 
2s: 
aTKS 
3$ 


1$ 


TEST NUMBER 
NEXT TEST 
: ITERATION COUNT 


SCOPE ENTRY 
3SKIP TEST IF LSI-11 


DELAY 150 MSEC. 


eet: RECEIVER 


RESE 
sTEST DONE BIT 

CH IF DONE IS CLEARED 
“NOT CLEARED, ERROR 
[CHAIN TO NEXT TEST 


SREPEAT TEST 
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1/0 LOGIC TEST 


001000 172246 
000226 


172130 
172122 


001000 172172 
000226 


172052 
006550 
000100 172034 


{RRRRRRREKE 


ZAT17== TESTAS7==CHECKS dd REFERENCING THE RECEIVER BUFFER 
: CLEARS THE DONE BIT 


Pelalahalatahetaiahel 


AT17: 57 
A 
18: BIT 


2s: AREAD 


3$: CHAIN 
BR 


Pe lelielehaiahahahahel 


zAT20-- TESTA#60--CHECK THAT THE 
: CAUSE AN INTERRUPT. 


[RARER 


AT20: 60 


1$: BIT 


23: CLR 


#LS111,@SR 
3$ 
#226,RO0 


aTkB 
aTksS 
3$ 


1$ 


#LS111,@SR 
5$ 
#226,R0 


aTKS 

~(SP) 
#3$,-(SP) 
#B1T6,aTKS 


5$ 


1$ 


+ TEST NUMBER 


“CHECK FOR LSI-11 
‘SKIP TEST IF SET 


DELAY 150 MSEC. 

ENABLE RECEIVER 

; REFERENCE RECEIVER BUFFER 
ST DONE BIT 

“BRANCH IF NOT SET 

;DONE BIT IS SET, ERROR 

:CHAIN TO NEXT TEST 

SREPEAT TEST 


RECEIVER DONE BIT IS ABLE TO 


7; TEST NUMBER 

NEXT TEST 

SS iene sen 

;SCOPE ENT 

7SET UP RECEIVER INTERRUPT 
SVECTOR TO 4$ 

CHECK FOR LSI-11 

:SKIP TEST IF SET 


DELAY 150 MSEC 
TENABLE RECEIVER 
[DISABLE RECEIVER INTERRUPTS 
;SET PROCESS STATUS TO ZERO 


ENABLE RECEIVER INTERRUPT 


ERROR RECEIVER FAILED TO INTERRUPT 
CHAIN TO NEXT TEST 

70K, CLEAN STACK 

CHAIN TO NEXT TEST 

REPEAT TEST 


SEQ 0086 
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Pileielisleieiahahahel 

sAT21~~ TEST#61=-TESTS THAT mi. RECEIVER DONE DOES NOT CAUSE AN 
INTERRUPT WHEN THE PROCESSOR IS AT THE SAME LEVEL AS 
THE RECEIVER'S INTERRUPT REQUEST LEVEL. 


° 
pia lalalelelaiahahel 


AT21: +: 7 TEST NUMBE 
NEXT TEST 
yf ae 
;SCOPE ENT 
7SET RECEIVER VECTOR TO 5$ 


001000 172100 : #LS111,@SR CHECK FOR LSI-11 
BNE 4$ 


SKIP TEST IF SET 
000226 MO #226,RO0 
DELAY 150 MSEC 
AREAD ENABLE RECEIVER 
171760 : aTKS ;DISABLE RECEIVER INTERRUPTS 
171766 TKLVL ,~(SP) 7SET PROCESSOR PRIORITY TO SAME LEVEL AS RECEIVER 
0066e4 #3$,-(SP) 


000100 171740 : ot #B1T6,aTKS ENABLE RECEIVER INTERRUPTS 
171732 : CL aTKs ;0K, NO_ INTERRUPT ai 
:CHAIN TO NEXT TEST 
1$ REPEAT TEST 
SERROR, RECEIVER INTERRUPTED, CLEAN STACK 


4$ BRANCH 4$ 
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Palalalalielaiahahahel 

ZAT22== TEST#62=-TESTS THAT THE an ik a Wy price CAUSE AN 
: INTERRUPT WHEN THE PROCESSOR IS A PRIORITY ONE 

: LEVEL LOWER THAN THE RECEIVER'S INTERRUPT 

: REQUEST LEVEL 


KR KEKKKK 


AT22: 62 TEST NUMBER 
AT23 NEXT TEST 
10. ; ITERATION COUNT 


1$ 7SCOPE ENTRY 
STRDRV SET on th te INTERRUPT 
4$ ;VECTOR TO 4$ 


#LS111,@SR ; CHECK FOR LSI11 
$ :SKIP TEST IF SET 
#226,R0 


DELAY 150 MSEC 

= ENABLE RECEIVER 
aTKS ;DISABLE READER INTERRUPTS 
pais [SET PROCESSOR PRIORITY ONE LEVEL 


#40 ,PSW ;LOWER THAN READER 
#BIT6,aTKS ENABLE INTERRUPTS 


sFAILED TO a ee oa 
5$ CHAIN TO NEXT TEST 
70K, CLEAN 


: STACK 
171616 : 7DISABLE nest ive INTERRUPTS 
;CHAIN TO NEXT TEST 
44200 006776 BR 1 *REPEAT TEST 
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Palielaialeiaiahahahel 
SAT23== TESTH63--CHECKS THAT THE RECEIVER DONE DOES NOT 
: OT is cert or RTI INSTRUCTION WHEN DONE 


[RAeKkkeane 


AT23: 63 TEST NUMBER 


171676 18: #LS111,@SR 
BNE $ 
2$: MOV #226,RO 


:SKIP TEST IF SET 

DELAY 150 MSEC 

ENABLE RECEIVER 

SET RECEIVER INTERRUPT 

& VECTOR TO 4$ 

171552 aTKS DISABLE RECEIVER INTERRUPTS 
000100 171544 a} #B1T6,aTKS ENABLE RECEIVER INTERRUPT 


NO INTERRUPT, ERROR 
171534 : CL aTKS [DISABLE RECEIVER INTERRUPTS 
ZRESET AFTER LAST INTERRUPT 
CHAIN TO NEXT TEST 
BR 1$ REPEAT TEST 
007104 171530 2 #6$ ,ATKVTR ; INTERRUPT, OK, CHANGE VECTOR TO 6$ 
007100 #5$,aSP : CHANGE RET ADDR TO 5$ 


30K, NO ADDITIONAL INTERRUPT 
ERROR, ADDITIONAL INTERRUPT 


47600 007110 BR CHAIN TO NEXT TEST 
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1/0 LOGIC TEST 


Palihelalaiahahehahel 
;AT24=-TEST#64~-HAVE OPERATOR TYPE A CHARACTER ON THE 
KEYBOARD, THEN CHECK FOR RECEIVER DONE. 


ALLOW 12 SECONDS FOR OPERATOR RESPONSE. 


-KEKKKRKKKK 


AT24: 64 
AT 


$ ENTRY 
001000 171564 1$: a SKIP TEST IF NOT AN LSI-11 
171454 gixs SHOULD BE CLEAR 
RECEIVER STATUS NOT =0 
000600 2s: #600,RO ;1/2 SEC DELAY 
000030 171542 MO #30,CNTR SET UP FOR 12 SEC WAIT 
MESSAGE TO TYPE A CHARACTER 
2 OND 


171424 ° aqks 
5$ “SET - EXIT LOOP 


171522 CNTR 
4$ TIME HAS RUN OUT... 
000600 #600,RO SANOTHER 1/2 SEC 
3$ CONTINUE WAIT 
NO RECEIVER DONE, OR 
OPERATOR DID NOT RESPOND 
CHAIN TO NEXT TEST 
50800 007210 





re 
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51400 

51500 007212 
51600 007214 
51700 007216 


51800 007220 
51900 007222 
52000 007230 


53000 2 
53100 007264 
53200 

53300 007266 





Pha helelelahahahahel 
SAT25--TESTA65~—CHECK THAT RECEIVER DONE CAUSES AN INTERRUPT 
N BIT 6 (INTERRUPT ENABLE) IS SET. 


 etenenees 
AT25: TEST NUMBE 
A ZNEXT TEST 
: ITERATION COUNT 
[SCOPE ENTRY 
001000 171464 1$: ; #LS111,@SR TSKIP TEST IF NOT AN LSI-11 
171354 , 2$: aTKS ;DONE SHOULD BE SET 
BNE 3$ 


RECEIVER DONE NOT SET 
2 SET RECEIVER INTERRUPT 
CTOR TO 5$ 


; VECTOR 
000100 171336 a #BIT6,aTKS TENABLE INTERRUPT 
sRECEIVER DID amare 


CLEAN UP THE STACK 
;CHAIN TO NEXT TEST 
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{RRA KREKK 
jAT26--TEST#66~~CHE CK THAT READING TKB CLEARS DONE BIT 
AND THAT DONE CLEARED DOES NOT CAUSE AN INTERRUPT 


Pettitt titty 


AT26: + TEST NUMBER 
TEST 


1$ E_ENT 
1$: cage :SKIP TEST IF NOT AN LSI-11 
2s: aTKs sMAKE SURE DONE IS STILL SET 
BN 3$ 


aH Be DONE NOT SET 
171370 : MOV @TKB.CNTR ZREAD DATA BUFFER 
_ _ THE DONE BIT 


[READING DATA BUFFER DID NOT CLEAR DONE 
SET RECEIVER INTERRUPT 
:VECTOR TO 6$ 

171242 #BIT6,aTKS SENABLE INTERRUPT 


NOP 
171232 : CLR aTKS :;O0K- CLEAN UP 
+? _ EXIT TESTS: 


:DLV INTERRUPTED WITH DONE CLEAR 
EAN UP THE STACK 


56200 007366 7CL 
56300 007370 BR 5$ sEXIT TESTS 
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56500 
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100 -SBTTL LA36 PRINTER TESTS 


200 
300 ‘THE LA36 PRINTER TESTS WILL BE EXECUTED IN A 
400 SCONTINOUS LOOP OUTPUTTING TO ALL MULTIPLE DL11'S 
500 :IF re BIT 8 IS SET TO ZERO AT START UP TIME. IF 

T 8 IS SET TO 1 AT START UP THEY MAY BE EXECUTED 
; INDI ONTINUALLY LOOPED, OR 
BECOME THE FIRST OF THE ENTIRE SEQUENCE OF PRINTER 
TESTS. REFERENCE INTRUCTIONS IN THE INTRODUCTION 
FOR PROPER MODE OF OPERATION. 


3 MXXAXAKAKX 


:PTO —_ PATA PATH TEST==--FOUR LINES OF ALTERNATING 
* AND ‘U'’ ARE PRINTED, OUT TO THE GIVEN PAPER 
WIDTH. THE PATTERN WILL APPEAR AS FOLLOWS. 


®U8USURU*UU 
U®U*U*U*U*U* 
*U8U8U*U8U*U 
U*®U®U*U*U*U* 


:XXXXXXXXNX 


BEBSeesssesgesssssas 


TEST NUMBER 
NEXT TEST 


‘PRINT COLUMN # MESG 
025125 : : :SET FIRST CHAR PAIR 
000004 -R “SET LINE COUNT 


171230 


4400 007444 BR SREPEAT TEST 
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E XXXXKAKXAX 
=PT1 <= PRINTER CHARACTER TEST === PRINTS ALL PRINTABLE CHARACTERS 
= XMAXXXXXAXX 


5100 
5200 007446 000001 PT1: 1 ; TEST NUMBER 
5300 007450 T NEXT TEST 


5400 007452 
5500 007454 1$: MOV :SPACE TO R1 
5600 007460 1 2 ;@ TO R2 


2$: 


BRANCH IF NOT 
; CARRIAGE RETURN LINE FEED 
| mat NEXT CHARACTERS 
+ 


R3,4200 ;CHECK IF ALL DONE 
2$ 3 CH IF NOT 

sEXIT TO NEXT TEST 
1$ ;REPEAT TEST 
#3,R4 zPRINT COUNT TO R4& 

zPRINT CHAR 
R4 THREE TIMES? 
1$ sBRANCH IF NOT 
#40,R0 


#40,RO0 
PC 
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# AXXXAXAAAK 


iPr2 == NON-PRINTING CHARACTER TEST. THIS TEST 
PRINTS THE OCTAL CODE FOLLOWED BY THE MNEMONIC 
OF ALL NON-PRINTING CHARACTERS. FOLLOWING EACH 
MNEMONIC, THE PRINTER IS DRIVEN BY THE NON-PRINTING 
CODE (000 THROUGH 037 PLUS 177) 
ALL CONTROL CHARACTERS (INCLUDING THOSE FOR OPTIONS 
WILL BE SKIPPED, REFER TO THE DOCUMENT FOR A LIST OF THOSE 


:WXXAXHHK 


TEST NUMBER 

ZNEXT_ TEST 

PRINT TEST HEADER 
#IDEZ,R1 SADDR OF IDENT TO R1 
#NPCODE .R3 ZADDR OF NON-PRINT=CODES TO R3 
#3,R2 :NO. OF ID'S PER LINE TO R2 
#10,R4 OF CHARS PER ID TO R4& 
(R3) ,455 [ZERO TERMINATOR IN NP TABLE? 
7$ BRANCH IF YES 
(R1)+,RO 7GET ID CHARACTERS 

i PRINT A 


ah CHARACTERS 
GET NP CODE FROM TABLE 


SAND 
:TRY TO PRINT IT 
HREE 


* TIMES 
*MORE TO GO ON THIS LINE ? 
CH IF NO 


177672 J PC, SP2 ‘SEND 3 SPACES 
3$ BRANCH TO CONTINUE LINE 
2s :GO DO NEXT LINE 
CHAIN TO NEXT TEST 


— 3 3 2s VM 3 I) 


N 


000 
100 
200 
300 
400 
500 
600 
700 
800 
900 
2000 
100 
200 


1$ 


NULOO1 SOHOO2 STX/ 


ACKO20 DLEO21 DC1/ 
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DC2023 DC3024 


SYNO27 


010135 
13500 a 4 000 002 006 NPCODE: .BYTE 0,2,6,20,21,22,23,24 


010145 
13600 010147 «BYTE 25,25,27,30,31,32,34,35 
010152 030 


010155 
13700 010157 036 -BYTE  36,37,177,55 
010162 
EVEN 
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XXXKXKKKKK 
:PT3 == CARRIAGE RETURN TEST 


THE LINE gee Lh OF A STRING OF O°S AND 

FIRST, THE O°S ARE PRINTED OUT TO THE LAST 
COLUMN WITH A SPACE SEPARATING EACH. THEN THE 
CARRIAGE IS SPACED TO THE FIRST BLANK SPACE, AN X 
IS PRINTED AND THEN RETURNED TO THE MARGIN. THIS 
PROCESS IS CONTINUE UNTIL ALL SPACES BETWEEN 
THE ZEROES HAVE BEEN FILLED. 


" XXXNXXKXKX 


PT3: 3 TEST NUMBER 
NEXT TEST 
: TYPE HEADER 
170476 1$: CL [CLEAR SPACE COUNTER 
170450 :POSITION COUNTER TO R1 
000117 23: MOV 7,RO :'0°* TO RO 
PRINT THE ‘0°’ 
R1 + Fe ee — COUNTER 


3$ ;BRANCH 
177340 PC, SPC :SEND SPACE 
R1 ;DECREMENT POSITION COUNTER 
3 2s BRANCH y NOT ZERO 
16700 010226 000001 170440 #1,SPCNT 7 SPACE, er’ SET TO 1 
16800 010234 170434 4$: SPCNT ,R1 :NO. OF SPACES TO R1 
16900 010240 004767 177314 2 PC,SPC ND SPA ACE 
17000 Biases 005301 R1 ;DECREMENT SPACE COUNTER 
17100 010246 BNE 5$ NOT ZERO 
17200 010250 000130 MOV #130,RO0 
7300 010254 


C PRINT CR 
000002 170406 #2,SPCNT INCREMENT SPACE COUNT BY 2 
170402 170356 SPCNT ,WIDTH SCOMPARE POSITION COUNTER WITH COLM. COUNT 
4$ ;BRANCH IF LOWER 


:SEND LF 
CHAIN TO NEXT TEST 
REPEAT TEST 


4S 4 rH SS 





r 
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18200 
18300 


1 
18500 


385825 


SSS2583e5 
S 
: 


000001 
170326 
010444 
000060 


170346 


170334 
000100 


170250 
000006 


000137 


170366 


170326 


060 


062 


3 AXAXAAAAAN 


:PT4 == MULTIPLE LINE FEED TEST -- 63 LINE FEEDS ARE 
SENT WITH A REFERENCE LINE AT THE START 


; AND END 
; A NUMBER IS PRINTED WHICH INDICATES THE NUMBER OF LINE 
; FEEDS THAT WILL BE ISSUED BEFORE THE NEXT 
: NUMBER OR REFERENCE LINE IS PRINTED. 
= XKXXAXKAKK 
P14: & : TEST NUMBER 
PTS ‘NEXT TEST 
PRTHDR :TYPE HEADER 
1$: MOV #1,LFCNT ‘LINE FEED COUNT TO 1 
MOV WIDTH,R1 :COLUMN COUNT TO R1 
MOV ALINES,R2 DR OF NUMBER FIELD TO R2 
JSR PC REF “PRINT REFERENCE LINE 
2$: MOV LFCNT,R1 SLINE FEED COUNT TO R17 
3$: LF sSEND LF 
DEC R1 [DECREMENT COUNTER 
BNE 3$ ;BRANCH IF NOT YET 0 
ASL LF CNT [DOUBLE LINE FEED COUNT 
CMP #B1T6,LFCNT ‘TEST IF COUNT IS 32 
BEQ 4$ ‘BRANCH IF =32, END 
MOVB _— (R2) +, RO ‘NUMBER TO RO 
PRINTC ‘PRINT IT 
VB (R2)+, RO ‘NUMBER TO RO 
PRINTC ‘PRINT IT 
CR :PRINT CR 
BR 2$ :DRIVE THE LINEFEEDS 
4$: MOV WIDTH,R1 “COLUMN COUNT TO R1 
JSR PC REF SSEND END AE FERENCE LINE 
LF SADVANCE PAPER 
CHAIN 
BR 1$ :REPEAT TEST 
REF: MOVB (R2)+,RO [NUMBER TO RO 
PRINTC SPRINT IT 
VB (R2)+,RO SNUMBER TO RO 
PRINTC ‘PRINT IT 
T -(R1) *DECREASE COUNTER BY 2 
MOV #137,RO ;DASH (=) TO RO 
1$: PRINTC PRINT IT 
DEC R1 <DECREMENT COLUMN COUNTER 
BNE 1$ *BRANCH IF NO ZERO 
CR ‘PRINT CR 
RTS PC RETURN 
LINE3: .ASCII /01020408163200/ 


SEQ 0099 
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23100 3 XAXXAXXAXAAK 
23200 ;PTS== SINGLE LINE FECD TEST == TESTS THE LINE FEED 
CAPABILITY FROM ALL COLUMNS. 
" XXKAKXNXKX 


PTS: 5 TEST NUMBER 
PT6 NEXT TEST 
PRTHDR ; TYPE HEADER 
170156 18: MOV me + [COLUMN COUNT TO R1 


; DECREASE BY 2 
000060 MOV #60,RO ;*0" TO RO 


2$: SEND 0 
R1 ;DECREMENT COLUMN COUNTER 
BNE 2$ BRANCH IF NOT ZERO 
000062 MOV #62 ,.RO zSEND A 2 


SEND A_ SECOND TWO 
170126 000204 WIDTH, #132. : COMPARE COLUMN COUNT 

ZBRANCH IF EQ 132 
003410 MOV #3410,R0 DELAY 1.8 SEC 


5$ 
000063 : #63 RO :3°S TO RO 
000100 MOV #100,R1 ; 


R1 
4$ 


WIDTH,R1 NO. COLUMNS TO 
#134,RO0 SBACKSLASH TO RO 
:SEND_IT 


26000 010564 
26100 010570 
26200 010572 F PRINT LF 
26300 010574 R1 ;DECREMENT COUNTER 
26400 010576 6$ ;BRANCH IF NOT ZERO. 
26500 010600 CR 


; SEND 
PC.PTSAL 7SEND REF LINE #1 
7SEND A_CR.LF 
#1750,R0 DELAY 1 SEC 


PC.PTSAL SEND A SECOND REF. LIN 


1$ 
WIDTH,R1 : COLUMN COUNT TO R1 
#61,RO 71" TO RO 

‘PRINT ORO 
: DECREMENT _SOUNTER 


;BRANCH 
2 INCREMENT CHARACTER 
;COMP CHAR TO ‘9°’ 


sBRANCH IF LOWER OR SAME 
;RESET CHAR TO ‘0°’ 


000766 BR ; CONT INUE 
28400 010664 : :FINISHED, RETURN TO CALLER 
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3 XXXXAXXAXAK 
3PT6=-- eos TEST == A REFERENCE LINE SUCH AS IN 
EST PTS IS PRINTED. THE SECOND LINE CONSISTS 
OF PRINTING A_BACKSLASH, BACKSPACE AND Aopen # 
SLASH COMBINATION OUT TO THE GIVEN COLUMN WIDT 
THIS LINE IS THEN FOLLOWED BY THE SAME TWO REF ERENCE 
; LINES AS PRINTED IN TEST PT5. 
3 AXXAXXAXAAX 


PT6: 6 TEST NUMBER 
NEXT TEST 
[PRINT HEADER 
;PRINT COLUMN # MESG 


167746 : WIDTH,R1 COLUMN COUNT TO R1 
-(R1) :DECREMENT BY 2 
000060 :'0°* TO RO 


> SEND "9 
[DECREMENT COLUMN COUNTER 
BNE BRANCH Md NOT ZERO 
000062 a RO | 


‘SEN A 
;SEND A SECOND *2"' 
167716 MP acral COMPARE COLUMN COUNT 


003410 MOV #3410,R0 DELAY 1.8 SEC 


5$ 
000063 : #63,RO 33'S TO RO 
000100 MOV #100,R1 364 ins COUNT 


ND 
R1 :DECREMENT CHAR COUNT 
4$ CONTINUE IF NOT DONE 
: ZSEND A CR.LF 
167656 MOV WIDTH,R1 [COLUMN COUNT TO R1 
000134 3 MOV #134,R0 ;BACKSLASH TO RO 


:SEND IT 
000010 MOV #10,RO IT TO RO 
000057 MOV #57 RO —— SLASH TO RO 


R1 
6$ 


SEND CR 
177576 PC,PTSAL ; SEND ryonry #1 
001750 MOV #1750,R0 SDELAY 1 SEC 


177562 JSR PC,PTSAL tH rau. LINE 
10400 :CHAIN TO NEXT TEST 
33800 011052 BR 1$ REPEAT TEST 
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; # AXXXAXAAAN 


:PT7— Saree an TEST=- A ROW OF ALTERNATING M°S AND 
seta ARE PRINTED, OUT TO THE LAST COLUMN AND ha TWICE. 
ECOND LINE OF ALTERNATING SPACES AND ‘‘@'S'’ THEN 
SENT 3 TIMES AS THE FIRST LINE. THIS IS FOL LOWED 
BY A THIRD AND FINAL LINE OF ALTERNATING ‘8’ 
AND SPACES. 


= XAXAXXAXAX 


PT7: 7 TEST NUMBER 
SNEXT_ TEST 
;PRINT MESSAGE 
1$: MOV #2, 32 COUNT TO R3 
2$: e zNO. OF COLUMNS TO R1 
3$: 115,R0 7M’ TO _RO 


io i od 


R3 
:BRAN As NOT FIRST TIME 
Hd cay LINE COUNTER 
;REPEAT LINE 


THIRD TIME? 

BRANCH IF NOT 

[NEXT LINE 

sREPEAT COUNTER 3 R3 
UMN COUNT TO R 


oooo0o0o°o 


;SEND SPACE 
:DECREASE COLUMN COUNT 
:BRANCH IF 0. END OF LINE 


SEND TT 

;DECREASE COLUMN COUNT 
BRANCH IF NOT 0 (NOT END) 
SEND OF LINE, FIRST TIME? 
——s i NOT 


2SEND C 

:DECREASE LINE COUNTER 
REPEAT LINE 

ZTEST IF THIRD REPEAT 
BRANCH a NOT 


KANKEVSENSESKENSRARNSENSELS 


1 
1 
1 
1 
1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
1 
1 
1 
1 
1 
1 
1 


SERe 


O NEXT LINE 

Line REPEAT COUNTER TO R3 
fa UMN COUNT TO RI 

SEND IT 
SDECREASE COLUMN COUNT 
;BRANCH IF _E 
:SEND SPACE 
;DECREASE COLUMN COUNT 


Sia YY = 5 Y=) 


Mronronr 


N33 


fo loleoleojlolojlololojlejololejojoj~) 
NANO 


176324 
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39700 011236 
000002 14$: 


15$: 


16$: 


SEQ 0103 


BRANCH IF NOT END 
: TEST e FIRST TIME 
;BRANCH IF =2, FIRST TIME 


CR 
“DECREASE sain COUNTER 


CR,LF 
ZCHAIN TO NEXT TEST 
:REPEAT TEST 





re 


N 8 
CZLACEO LA36 TERM (DL11 & KL11) MACRO M1110 25-AUG-78 10:13 PAGE 50 


LA3S6 PRINTER TESTS 


WAG 
ww 
NO 


Va reRRSonaeeeee 


RRR REW 


~ 
wi 
8 
ooooo 
—) 
— 
P > 
Nm 
N 


000074 
177724 
177716 


000036 


SEQ 0104 
5 XWXKXHAXX 
PT10-~ PRINTING FREQUENCY TEST=- 120 H'’S ARE PRINTED ON 4 LINES 
PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST AND SECOND 

“u'" A 30 MSEC DELAY IS INTRODUCED. THIS DELAY IS THEN INCREASED 

BETWEEN CHARACTERS OUT TO 60 CHARACTERS IN AN EXPONENTIAL 

MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT TO THE 

120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS; 

NEW DELAY = OLD DELAY [+ OR =) (OLD DELAY/16 + OLD DELAY/128 ) 

= XXXXXAXAKK 


PT10: 

1$: 

:SET UP DELAY VALUE 
:‘H'' TO RO 

:SEND IT 


2s: MOV 0,R0 
3$: MOV~ #30..,RO0 
R 


:DELAY 

[DEC. COUNT OF CHARS PER LINE 

BEQ 6$ ZBRANCH IF 0, END OF LINE 

4$: [DECREMENT CHAR COUNTER 
BRANCH IF END 

:GET OLD DELAY 

;CAL 1/16 OF OLD DELAY 


SAVE 1/16 IN R5 
CAL 1/128 OF OLD DELAY 


31/16 +1/128 TO R5 

[TEST WHICH HALF OF THE 120 CHARS. 
SBRANCH IF LT OR EQ 60 

7GT 51, DECREASE DELAY BY 34 MEC. 
[GO PRINT AGAIN 

3LT HALF WAY, ADD DELAY OF 34 MEC. 
[GO PRINT AGAIN 

:SEND CRLF 

TSET R1=30 


SEND CRLF 
[CHAIN TO NEXT TEST 
SREPEAT TEST 





rn 
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5 XXXXNXHAXX 

“PT11<+ RIBBON FEED TEST-- THIS TEST PRINTS A SINGLE COLUMN OF X'S 

: (24 LINES) DOWN THE LEFT MARGIN OF THE PAGE. 

: VISUALLY CHECK THE RIBBON FEED MECHANISM FOR PROPER OPERATION. 
= XXXAXXAXAX 
pT11: T NUMBER 
:NEXT TEST 


TYPE MESSAGE 
1$: MOV 0 TSET Ri=2e(10), LINE COUNT 
2$: ;SET CHAR = X 


“REPEAT TEST 


5 XXAXKHKAKK 

:PT12-— PRINTER BELL TEST-- THE LAST TEST IN THE 
PRINTER TEST SEQUENCE. THIS TEST OUTPUTS 
EIGHT BELL SIGNALS TO THE PRINTER 

= XMXXXXAXAX 

PT12: 12 :THIS TEST 

PT12A: MOV #10,R1 

“ MO #7.RO 


3 SE IT 
R1 ;DECREMENT COUNT 
1$ ;BRANCH IF NOT ZERO 


#3720,R0 DELAY 2 SEC BEFORE RESTARTING 


a#42,R0 CHECK IF UNDER ACT11 OR XXDP 
HERE SCONTINUE TEST SEQUENCE 
NOP ZA RESET WAS FORMERLY HERE 
LOGICAL yan PC, (RO) 


NOP 
HERE : CHAIN TO NEXT TEST 
BR SREPEAT TEST 





c 9 
CZLACEO LA36 TERM (DL11 & KL11) MACRO M1110 25-AUG-78 10:13 PAGE 52 
LA36 PRINTER TESTS SEQ 0106 


# AXXXXAAAAK 


:PTI7—~ re TEST 
THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE 
CHARACTER AND OVERPRINTS THE SECOND LINE 4 TIMES. 
THIS TEST IS CONTINUOUS RUNNING ONCE INITIATED, 
LOOPING AUTOMATICALLY ON ITSELF. 
END OF PASS COUNT IS CLEARED WHENEVER TEST IS RESTARTED 


= XXXAXXAXAX 


PT17B: 17 TEST NUMBER 
P NEXT TEST 
PT17D 


J ; CONT INUE 
PT17: : TEST NUMBER 
P NEXT TEST 
PASCNT CLEAR PASS COUNT 
WIDTH,R4 INITIALIZE R4 
#1,DIRIN sAND DIRECTION OF PRECESS 


PRINT COLUMN # MESG 
;SET START CHAR 

:D0 31 

ZBRAN 


PASCNT,R1 
oR2 74 DIGITS 

;CONVERT PASCNT TO ASCII 
WIDTH,R1 SET COLUMN COUNT 

R3,R :GET CHARACTER 

PC,CKPOS :TIME TO INSERT PASS # ? 
ND CHAR 


3SE 
R1 :DECREMENT COUNT 
2$ ;BRANCH IF NOT DONE 
PC ,ADJR4 ADJUST R4 POINTER 


sSET OVERPRINT COUNT 


#5 Re 
WIDTH,R1 
R3,RO : CTER 

PC,CKPOS 3; TIME TO INSERT PASS # ? 


[SEND CHAR 
R1 ;DECREMENT COUNT 
4$ BRANCH. IF NOT DONE 


;SEND C 
R2 [DONE OVERPRINTS ? 
3$ NO. CONTINUE 
PC,ADJR4 ~ ADJUST R4& POINTER 
;SEND LF 


es 
ss 


lelejlejlelelelejejo-j=j—<) 
ta 
ALNO 


NNN~GN 


R3 
#177,R3 
1$ 


3NO. CONTINUE 
PC ,ADJRS OFFSET POINTER 3 PLACES 
PC ,ADJR4 TO RETAIN VISUAL ALIGNMENT 
PC ,ADJR4 ; THROUGH END OF PASS 


ee ee ee ee ee ee ee ceed eed eed eed ed ed 
NNN ANN 
SRY 


“NS 
Ww 
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56900 011754 104007 TYPEM TYPE END OF PASS MESG 
ENDPAS 
CHAIN REPEAT TEST 

57200 011762 000705 PT17D 

57300 
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57500 
57600 011764 


58000 011776 
58100 012002 
58200 012004 


58300 012010 
58400 012012 


60400 012104 
60500 012110 
60600 
60700 012112 
60800 
60900 012114 


CKPOS: CMP 
BNE 


MOV 
PRINTC 
MOVB 


1$: 


2$: 
3$: 
DIRTN: .WORD 
PASCNT: .WORD 


E 9 
10:13 PAGE 53 


R4,R1 

1$ 

#40,RO 
PASMES ,RO 
PASMES+1,RO 
#40,RO0 


#3,R1 
~ #2, (SP) 
PC 


DIRTN 
1$ 


R4 
R4,WIDTH 
3$ 
WIDTH,R4 
R4 
#1,DIRTN 
3$ 


31S IT TIME TO INSERT PASS # ? 
BRANCH IF NO 

sPRINT A SPACE 

PRINT MSG OF PASS COUNT 


PRINT A SPACE 

sADJUST R1_3 POSITIONS 
;ADJUST RETURN PC OVER PRINTC 
sTEST Pat} behets OF PRECESS 
INCREASE ss Al ee CNTR 

;1S R4 > WIDTH 


:BR IF NOT GREATER 
; CHANGE —_— 


: LEFT. 
:DECREASE POSITION CNTR 


LESS THAN 4 ? 


;BR IF YES 

sELSE EXIT 

7SET R4 TO POS 5 

— DIRECTION TO RIGHT 


DIRECTION OF PRECESS (O=LEFT) 


SEQ 0108 
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61100 
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100 .SBTTL LA36 ECHO TESTS 
300 5 XXMXXXXXX 
400 


500 7EO20-= CHARACTER ECHO TEST== ALL PRINTABLE AND 
: NON=PRINTING CHARACTERS TYPED ON THE KEYBOARD 
: ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT 
: A TIME. A ‘RUBOUT’' WILL CAUSE THE TEST TO BE 
: TERMINATED. 


# AXXAXAAXAAX 
E020: 0 TEST NUMBER 
E NEXT TEST 
TYPE HEADER 
1$: EAD 3GO WAIT FOR KEYBOARD INPUT 
000036 MOV #30. ,RO DELAY FOR HALF DUPLEX 
000177 166536 CMP ——— CHECK IF RUBOUT 


BRANCH IF YES 
NO, CHECK PRINTER READY 
166442 166444 = TREADY, ECHO CHARACTER 


PRINT TERMINATION MESSAGE 


CHAIN TO NEXT TEST 
1$ REPEAT TEST 


600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 


16 
20 
22 
ra) 
26 
32 
34 
42 
4& 
46 
54 
56 
60 
62 
64 


5 XXAXXXXAXK 


;£021~~ ECHO TEST, FAST RATE=~ THIS TEST WILL 
AUSE THE CONTINUAL PRINTING OF ‘'0'' AT THE MAXIMUM 
RATE UNTIL EITHER ANOTHER CHARACTER IS SELECTED 
= —- A KEY ON THE KEYBOARD OR TERMINATION BY THE 


FXKKK 


E021: TEST NUMBER 
E sNEXT TEST 
; TYPE HEADER 
000060 166460 EO21A: #60 ,REPT ZCHARACTER TO BE REPEATED (0) 
166444 1$: MO WIDTH,R2 ; COUNT 
4400 012206 166450 2s: V REPT ,RO 
4500 pigsie 
4600 012214 005302 DEC R2 
4700 012216 2$ 
4800 012220 
4900 012222 000767 BR 1$ 


SEND A CR AND LF 
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LA36 ECHO T SEQ 0111 
e100 ; # AXXAXXAAAN 
5300 :E022-- LINE ECHO TEST, SLOW RATE-- SAME AS E021 EXCEPT 
5400 3 THAT A DELAY IS INTRODUCED BETWEEN CHARACTERS 
5500 ; TO PRODUCE A LCV ACTION 
5600 3 
5700 3 XXXAXAXAAK 
5800 : 
5900 012224 000022 E022: 22 
6000 012226 012476 E023 
6100 012230 104016 PRTHDR : TYPE HEADER 
6200 012232 012767 000960 166422 E022A: MOV #60 ,REPT ;LOAD 0 AS INITIAL CHARACTER 
6300 012240 016702 166406 1$: MOV WIDTH,R2 :SET COLUMN COUNT 
6400 012244 016700 166412 2$: MOV REPT ,RO T CHAR 
6500 012250 104015 PRINTC SPRINT CHAR 
6600 012252 005302 DEC R2 DEC COLUMN COUNT 
6700 012254 001404 BEQ 3$ ;BRANCH IF DONE LINE 
6800 012256 012700 003410 MOV #3410,R0 
6900 012262 104010 DELAY ;DELAY 1.8 SEC. 
7000 012264 000767 BR 2$ OUTPUT NEW CHAR. 
7100 012266 104012 3$: CRLF SEND A CR AND LF 


7200 012270 000763 BR 1$ 
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LA36 ECHO TESTS SEQ 0112 


-KRRRKKREKE 


THIS FOLLOWING TABLE IS USED BY TEST E023 


RRR KEKKKKKE 
7900 
8000 012272 114 MONIC: .ASCII 
012275 040 
8100 012276 110 ASCII 
012301 04 
8200 012302 130 -ASCII 
012305 040 
012306 130 ASCII 
012311 040 
8400 012312 124 -ASCII 
012315 040 
8500 012316 121 -ASCII 
012321 
113 -ASCII 
114 ASCII 
040 -ASCII 
040 -ASCII 
040 -ASCII 
040 -ASCII 
040 -ASCII 
040 ASCII 
040 -ASCII 
040 ASCII 
ASCII 
-ASCII 
ASCII 
ASCII 
-ASCII 
ASCII 
-ASCII 
ASCII 
-ASCII 
040 
10500 012436 ASCII 
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LA36 ECHO TESTS SEQ 0113 


125 102 ASCII /SUB / 
123 103 ASCII /ESC / 
123 040 ASCII /FS / 
123 040 ASCII /GS 
123 040 -ASCII /RS 
123 040 -ASCII /US 
120 ASCII /SP 
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LA36 ECHO TESTS SEQ 0114 


= AXXXAXAAXN 


E023-~ CHARACTER CODE TEST=- ANY CHARACTER SELECTED 
WILL BE ECHOED ALONG WITH ITS OCTAL CODE. 
A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER 
TF IT IS_A NON-PRINTING CHARACTER. 
THE PARITY OF THE RECEIVED CODE WILL ALSO BE 
INDICATED AS EITHER EVEN OR ODD. 


$ XXXII 


012476 000023 £023: 3 TEST NUMBER 
012500 E024 NEXT TEST 
104016 TYPE HEADER 
1$: READ :GO WAIT FOR CHARACTER 
000036 #30. ,RO DELAY FOR HALF DUPLEX 


166160 MP TEMPCH 441 TEST IF CHAR IS PRINTABLE 
3$ SBRANCH IF IT IS 

000130 PC,STRLN STORE CODE INTO MESSAGE 

166144 tas GET —_—— 


RO 
012272 AMONIC ,RO 
000166 PC ,MOVNUM 


+“ mace, 


3 


a ee ee ee ee ee ee ee 
Ww 


Bs838 


GE 
:GO WAIT FOR NEXT CHARACTER 


1$ 
166116 : TEMPCH, #177 :TEST IF CHAR IS A RUBOUT 
4$ :BRANCH IF RUBOUT 


#MG24 ,R1 
TEMPCH, (R1)+ 
0,(R1)+ 


8 


STORE CODE INTO MESSAGE 
zADDR OF CHAR INTO RO 
sMOVE CHAR INTO MESSAGE 
2 TYPE MESSAGE 
PC,STRLN ;RUBOUT, CONVERT AND STOR CODE 
#MG25 ,RO sADDR. OF DEL INTO RO 
PC ,MOVNUM MOVE DEL INTO MESSAGE 
;TYPE MESSAGE 


SADDR OF MESSAGE 


B8 


¥ 
8 


sssss 3 
RERRaeReSNes 


Sooooooo[0oo 
a a at 


2S os 
Ross wi 
assess 
nN 
oO 
Ww 
nN 


4 
RO 
ar 


CHAIN, TO NEXT TEST 
1$ ‘REPEAT TEST 

#3,R2 [COUNT OF 3 TO R2 

#LINES,R1 TADDR OF MESG TO R1 

#3,R1 ‘POINT TO LAST SPACE IN MESG 
PCHAR,RO SMOVE OCTAL CODE TO RO 
#177770,RO sSAVE LS OCTAL CHAR 

460, ‘MAKE ASCII 

RO,-(R1) ‘MOVE INTO MESG 

R2 “DECREMENT CHAR COUNTER 
2$ “BRANCH IF 3 MOVED 
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LA36 ECHO T 
17300 012716 


B88 
PDN 


ot ot os St oS 2 SS Ss SS SS SS a SS SS 


susssseccessesceesse 


— 
—-4 et ab od Hh a SS) oo St 


3 
8 


165722 
014371 
014375 
000004 


114 MG25: 


-ASCII 


- EVEN 
-ASCII 


EVEN 


Os, (R1)+ 
Re 

PARITY 

2$ 
#EVEN,RO 
3$ 

#ODD RO 
#4,R 
(RO) +, (R1)+ 
R2 


4$ 
PC 


/ 


/DEL / 


NOT THREE, SHIFT NEXT OCTAL 
: CHARACTER TO THE RIGHT 


[CONVERT AND STORE NEXT CHAR 
;RETURN TO CALLER 

;ADDR_OF LINES IN R1 

;COUNT OF 4 TO R2 

MOV 4 CHARS TO * AREA 


CH IF _NO 
ITEST PARITY a 
7BRANCH IF ODD PARITY 
‘et a FOR EVEN PARITY MESG 
ZSET ADDRESS FOR ODD PARITY MESG 
ZCOUNT OF 4 TO R2 


SMOVE 4 CHARS TO MESG AREA 
;DECREMENT COUNTER 


[BRANCH IF NOT DONE 
;RETURN 


SAVE CHARACTER CODE 


s;MNEMONIC FOR RUBOUT 


SEQ 0115 
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LA36 ECHO TESTS 


22300 013044 
22400 013052 


013164 
000036 
000177 
000003 
000400 
165602 


165572 


013164 
165554 
013164 
000003 


000003 


165626 
165616 


165510 


3 XAXXXAAXN 


3E024-~ SELECTED PATTERN ECHO TEST== SELECT 1 TO 256 
CHARACTERS. EACH WILL BE ECHOED 


UNTIL THE CNTL/C IS SELECTED. 
¥ THAT TIME ALL CHARACTERS WILL BE PRINTED AS 
A_CONTINOUS STRING UNTIL EITHER THE RUBOUT IS 

SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED 
A TERMINATING CNTL/C FOLLOWED BY ANO 
CNTL/C WILL ALWAYS CAUSE THE LAST 
BE PRINTED. 
RUBOUT WILL CAUSE A NEW 


AND STORED 


AGAIN. 


THER 


INPUTTED STRING TO 
A TERMINATING CNTL/C FOLLOWED BY A CHARACTER OTHER THAN A 


STRING TO BE INPUTTED. 


“; TEST NUMBER 


NEXT TEST 


: TYPE TEST HEADE 


LEAR CHARA 


ZCL CTER COUNT 
ZADDRESS OF BUFFER TO R2 
WAIT FOR INPUT 

DELAY FOR HALF DUPLEX 


TEST IF RUBOUT 

BRANCH IF RUBOUT 

TEST IF CNTL-C 

:BRANCH IF CNTL-C 

YES, CHECK IF CHAR CNT IS EQ, GT 256 
BRANCH IF 


YES, IGNORE CHAR 
STORE CHAR INTO BUFFER 


; INCREMENT CHARACTER COUNT 


[CHECK IF PRINTER READY 


HO CHAR 
:GO WAIT FOR NEXT CHAR 


+ CHECK IF POINTER IS AT START OF TABLE 
- BRANCH 


NO, ; STORE “C IN TABLE 


7SEND A 


R LF 
ZBUFFER ADDRESS TO R2 


HECK IF FIRST CHAR IS “C 
LOOK FOR INPUT AGAIN 


‘VES. 
GET CHARACTER 
:DONE STRING? 


SYES, RESTART STRING 


PRINT CHAR 


; CONT INUE 
OUTPUT TERMINATION MESSAGE 
; CHAIN A i TEST 


SREPEAT T 


INITIALIZE FIRST CHAR AS CNTL-C IN TABLE 


TAKKXXXXXKNX 
E024: 24 
E025 
PRTHDR 
E0248: CLR R1 
MOV #BUFR,R2 
1$: READ 
V #30..R0 
DELAY 
CMP #177, TEMPCH 
BEQ TERM 
CMP #3, Mr toe 
BEQ OUTPU 
CMP RI "1256. 
BHIS 
MOVB TEMPCH, (R2)+ 
INC R1 
PRNT 
MOVB TEMPCH, aTPB 
BR 1$ 
sSECTION TO OUTPUT CONTINOUS STRING 
OUTPUT: CMP R2,ABUFR 
BEQ 1$ 
MOVB TEMPCH, (R2)+ 
SCRLF 
1$: MOV MBUFR Re 
CMP (R2) 43 
BEQ E0248 
2$: MOVB (R2)+,RO 
CMP RO,A3 
BEQ 1$ 
PRINTC 
BR 2s 
TERM: TYPEM 
ECOEND 
CHAIN 
BR £0248 
BUFR: 3 
-BLKB 256. 


7256 CHARACTER BUFFER 


SEQ 0116 
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LA36 ECHO T SEQ 0117 


| XKAKAKKANK 
;£025-~ ne ECHO TEST=- A MESSAGE Le PRINTED AND 


IF LT64 COLUMNS AN ILLEGAL BELL TEST 
MESSAGE IS PRINTED. 


DOOOOOO0000X 
26600 : 
26700 013566 000025 E025: 25 ; TEST NUMBER 
E020 SNEXT TEST HEADER 
PRTHDR ;PRINT HEADER 
165052 1$: CMP WIDTH,4101 s TEST IF COLUMN COUNTIS EQ,GT 64 
BLO 4$ CH IF NOT 
TYPEM “TYPE TEST MESG 


EO25MA 
BR 3$ sWAIT FOR CHAR 
TYPE TEST MESG ON TERM CHAR RCVD ON 


: WAIT FOR OPERATOR RESPONSE 
000036 MOV #30. ,RO DELAY FOR HALF DUPLEX 


165046 MP TEMPCH #40 TEST IF PRINTABLE 

3$ BRANCH IF NON-PRINTABLE 
000177 MP #177, TEMPCH CHECK IF CHAR IS RUBOUT 
5$ BRANCH IF 


IF YES 

:CHECK IF PRINTER IS READY 
165024 MOVB TEMPCH ,@TPB PRINT oor (BELL SHOULD SOUND) 

2 SEND ? CRLF 

2$ SREPEAT 

3 TYPE ERROR MESSAGE 
29000 013666 PRINT TERMINATION 
29100 013670 


29200 013672 104005 EXIT TO NEXT TEST 
29300 013674 BR 1 REPEAT TEST 
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LA36 ECHO TES SEQ 0118 


29500 


C 
CZLACEO LA36 TERM (DL11_ & KL11) MACRO M1110 25-AUG-78 10:13 PAGE 
MISC. DIAGNOSTIC MESSAGES SEQ 0119 
-SBTTL MISC. DIAGNOSTIC MESSAGES 


290 STARTM: .ASCII <7><2><ACRLF><17>/CZLACEO LA36 TERM (DL11 & KL11)/<ACRLF> 


—— 
Su enw 


/LA36 TERMINAL DIAGNOSTIC/<ACRLF> 


LIR{R=ALSF 
&-Wofroul 


ay ee 
poeta) 

-_- OO 
FZ SSSESRESTSES 


/DL11 & KL11 INTERFACE/<ACRLF><12> 


-Oo-0Cl OS oe 
— —_- © 


So=RRR 

=n =O 
SSSnu~& 
MNWNA—WO 


ENDPAS : <ACRLF><12>/END OF PASS / 


LER 


1 1 
1 1 
1 1 
200 0 
200 0 
1 1 
1 1 
1 1 
1 


Mn 
WOND 
Ee 


PASMES : /0000/<ACRLF><12> 


BS8s 


DL11S: <ACRLF>/CONSOLE & / 


—_ <2 
RSS 


DL11S1: 4/00 DL11°S UNDER TEST/<ACRLF><12> 


REE 


: .ASCIZ <7><2><ACRLF><17><12>/TEST #/ 


014124 043 
1100 Oleg 060 060 -ASCIZ /000 COLUMNS/<ACRLF><12> 
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MISC. DIAGNOSTIC MESSAGES SEQ 0120 


014135 


— 

— 

™~ 

— —t 
WSny 
wu 

— 

Ww 


EQ2SMA: .ASCII /TYPE ANY PRINTABLE CHARACTER / 


—— ho 
Row S 


ot ot IO 
ON ON 
Ue UN OU OO 


a SS 


NWW—ONAKOOUENGA 


NOOR 


— 
oO 
bors 


/AND LISTEN FOR BELL 


o-oS OCO-oCoO— 


— ad ad 
OF SAORNWE SMO 


— 2 “4 ss 


ES 


<ACRLF>/NOT ENOUGH COLUMNS/<ACRLF > 


R 
ViNONO 
& 


11 
11 
11 
11 


-OoO-— 
3a 
afro 


eASCIZ <ACRLF>/ECHO TEST TERMINATED/<ACRLF> 


muheeewe 
89=n o-0o 
MANMNOUNW 
erty wt 4 
try + 
—NSWWOW 


-ASCII 
ASCII s;MESG FOR TEST E024 


-ASCIZ /<ACRLF > 


eASCIZ <ACRLF><17><12>/SELECT TEST NUMBER / 


014374 ASCII /EVEN/ 
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MISC. DIAGNOSTIC MESSAGES SEQ 0121 


2100 App ee O40 104 ODD: ASCII /ODD / 
2200 014401 & 120 OPMSG: .ASCIZ /TYPE ANY CHARACTER/ 
014404 040 101 


NOSWR: .ASCIZ /USE SOFTWARE SWITCH REG AT MEMORY ADDR 176/<7> 


ss 
SE 


g _——- OO — 
oOnuIRH oO -O— 

yr ore 
SRSaS 

oF - NNO ONWNUYUNN 


Nm 


06 
00 
000001 
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SYMBOL T SEQ 0122 


EO25MA 014145 adh, & oeoee STARTS 000772 
PRIN 104015 3406 


SREADC 
BUF 0 $SCRLF 
CHAIN = 104005 START2 
- ABS. 014500 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: oe WORDS ( 12 paces) 
DYNAMIC MEMORY: 3844 WORDS ( 14 PAGES) 


ELAPSED TIME: 00:00: 
CZLACE .BIN, CZLACE .LST/~SP=CZLACE .MAC 





